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DISCLAIMER 



Although each program has been tested by its contributor, 
no warranty, express or implied, is made by the contributor 
*or any User's Group, as to the accuracy and functioning of 
the program and related program material, nor shall the fact 
of distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or any User's Group, in connection 
therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date_ • • , 

Program Name: 

I. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

Com ment ( 

Does the program do what the abstract says ? Yes No_ 

Comment 

Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes 

Comment ; 

Are the Sense Switch options adequately described (if applicable) ? Yes 

Arc the mnemonic labels identified or sufficiently understandable? Yes_ 

Comment 

5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Com m ent 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

b. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

Were all necessary parts of the program received? Yes No_ 

Comment 



LO. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: 

Miss Gaye Baber 
Research Division 
National Education Association 
1201 Sixteenth Street, N.W. 
Washington, D.C. 20036 

THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AM) 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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Modified Fortran for 
Monitor I, Version 2 



Author ; 

David L. Wilson 

Engineering Computing Laboratory 
University of Wisconsin 
Madison, Wisconsin 53706 

Direct Inquiries to ; 

Prof. C. H. Davidson, Director 
Engineering Computing Laboratory 
University of Wisconsin 
Madison, Wisconsin 53706 

Users Group Code ; 3155 

Date; 12-27-66 



Modifications or revisions to this program, as they occur, will be 
announced in the appropriate Catalog of Programs for IBM Data Processing 
Systems. When such an announcement occurs, users should order a complete 
new program from the Program Information Department. 
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Program Abstract 



Title ; Modified Fortran for Monitor I, Version 2 

Author ; David L. Wilson 

Engineering Computing Laboratory 
University of Wisconsin 
Madison, Wisconsin 53706 

Date ; 12-27-66 

Users Group Code ; 3155 

Direct Inquiries to ; Prof. C. H. Davidson, Director 

Engineering Computing Laboratory 
University of Wisconsin 
Madison, Wisconsin 53706 
Phone: 608-262-6945 

Description / Purpose: 

Modified Fortran has free format, variable format, improved 
execution time diagnostics, improved trace output, and P scaling. 
All statement map option has been removed. 

Specifications : 

Storage ; 20K 

Equipment ; 1620 Model I, Card Input-Output, 1 Disk Drive, Automatic 
divide, Indirect addressing, 1443 Printer. 

Program Language ; SPS II-D 

Additional Remarks ; 

Do not insert IBM's modifications to Deck #8i This Fortran does 
not include modification #3 because of core conflict. 
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DECK LABELING SHEET 



BASIC 
Deck Number 



1 (optional) 

2 (optional) 

3 (optional) 

4 (optional) 

5 (optional) 

6 (optional) 



Sequence Number Range 
50000-51987 

bbbbb-03054 

00010-04550 
00010-32090 
00010-33920 
00010-01540 

00010-02500 

00010-02690 



Description 

Object deck for modified 
Fortran--replaces deck 
#8 in Monitor object 

Object decks for new 
library Functions — run 
under Monitor control 

Source — Phase 1-A 

Source--Phase 1-B 

Source--Phase 2 

Source — diagnostic 
library subprogram 

Source — variable format 
library subprogram 

Source--free format 
library subprogram 



optional material '//ill be sent only v/hen specifically requested. 



© 
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Program Wrlteup for: 



Modified FORTRAN II-D for Monitor I Ver. 2 which will hereafter 
be referred to as "Modified Fortran." 

A. Misc. Data 

Date: December 1966 

Author: David L. Wilson 

Engineering Computing Lab. 
University of Wisconsin 
Madison, Wisconsin 53706 

Phone: 608-262-6945 
Users Group 

Membership Code: 3155 

B. Program Description 

It is assumed that the reader is familiar with IBM's 

FORTRAN II-D as described in the Monitor I manual. The only feature which 
has been removed from FORTRAN II-D on the Modified Fortran is the All 
Statement Map option. The new features include Free Format (as in FORGO), 
Variable Format (format read at execution time), Improved execution time 
diagnostics (including detection of most undefined variables), improved 
trace output (including the use of BEGIN TRACE and END TRACE as in PDQ 
Fortran), and P scaling. 

1. Free Format 

In order to relieve the programmer (esp. the beginning programmer) of 

the necessity of coding FORMAT statements in his programs, the free format 

is provided, i.e. 

READ, A 

will read the first number on the card into the variable A. If the data 
on the first record is not enough to satisfy the input/output statement 
the free format routine will move onto the next record. Numbers may be 
punch on the input card any way you like (i.e. 1, 1.0, ,1E1, 10E-1 will' 
all be accepted as floating point ones. Only the first will be accepted as 
a fixed point one.). Numbers must be separated by a comma and/or by one 
or more spaces. A number may not continue from one card onto the next. 
All 80 columns of the input card (or all 84 input positions from the type- 
writer) are processed. 

Output in free format will output as much as six numbers per card, seven 
per typewriter line, and ten or twelve per printer line (depending on width 
of printer line). Fixed point output format is 112. Floating point output 
format is 1PE12.4 after rounding. 




The error messages are 

ER Rl — ALPHABETIC DATA ON CARD 

ER R2 TWO DECIMAL POINTS IN ONE NUMBER 

ER R3 — EXPONENT OUT OF RANGE 

ER R4 — UNDEFINED FLOATING POINT NUMBER 

ER R5 — UNDEFINED FIXED POINT NUMBER 

ER R6 — FIXED NUMBER TO LARGE 

ER R7 — FIXED NUMBER CONTAINS E, ETC. 

ER R8 — OVER 28 SIGNIFICANT DIGITS 

ER R9 -- NO NUMBER BETWEEN COMMAS 

2. Variable Format 

Sometimes a programmer doesn't know what his data (or his output for that 
matter^ will look like until execution. To handle this problem a variable 
format option has been included in FORTRAN* It is used as follows: 

READ I, A. 

where I is the name of the array which contains the FORMAT in double digit 
alphabetic coding. As shown above, the variable A will be read under the for- 
mat in array I. In decoding the format everything before the first left 
paranthesis is ignored, as is everything after the right parenthesis which 
is paired with the first left parenthesis. 

The array containing the format is assumed to be packed. In the 1620 each 
alphabetic character of the format occupies two digits, (i.e. an A is 41.) 
When these are read under A format, these characters are placed in the high 
order digits of the number. If it is a floating number* the exponent is 
set to zero. Thus at standard precision an A will read into a fixed point 
number as 4100 as into a floating point number as .41. The number of alpha- 
betic characters per variable array element should equal the length (not 
counting the exponent in floating point variables) divided by two (ignore 
the remainder in case of odd length). However, EXCEPT FOR HOLLERITH FORMAT, 
an unpacked version will be Interpreted correctly. At standard mantissa 
length the array would be packed if it contains two alphabetic characters 
per element in a fixed point array or four alphabetic characters per eleoent 
in a floating point array. 

The format is compiled into the array between the last subroutine loaded 
and the low position of common. Because of this there is a chance for 
overlap at execution time. In this case 'FORMAT OVERLAP' is typed and 
execution is halted. If there was any syntax (punctuation) error in the 
format, the computer will type out 'FORMAT ERROR' and call exit if the 
array containing the format was floating, otherwise it will do its best 
to patch up the error and continue execution. 

Since the high core loaded indicator is not properly updated by the loader 
when LOCAL subprograms are used, variable format should not be used with 
LOCALS unless the last LOCAL loaded was the largest. 

At the present time, the variable format routine does not accept P scaling. 
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3. Improved Execution Time Diagnostics 

There is in the Modified Fortran, two different modes for compiling a program. 
The first is the production run mode where the program is compiled the same 
way as IBM Fortran II-D; the second is diagnostic mode which is in- 

tended for programs which have not yet been debugged. In the Modified Fortran, 
diagnostic mode is normal. If one is running a program which has been de- 
bugged, he should include a *N0 DIAGNOSTICS control record. 

A program compiled in diagnostic mode takes up a great deal more core than 
one that is not. Namely 12 extra core for every executable statement with 
the exception of a simple GO TO, plus 1504 core for an extra library sub- 
routine which will be automatically called. 

During execution in diagnostic mode, any non input — output error message 
will be preceeded by the statement and line number of the FORTRAN statement 
in which the error occurred, e.g. 

0102+05 ER Al 

would mean that an undefined variable was detected on the fifth statement 
following the statement which has the statement number 0102. Dimension, Common, 
and Equivalence statements, as well as comment and continuation cards, are 
not included in the line count. 0000+01 would refer to the first statement 
in the program, excluding Dimension, Common, and Equivalence statements. The 
line counter cannot exceed 19. After 19 is reached the count starts over 
at 10. i.e. an error at 0050+13 could actually refer to the statement which 
was 23 statements past the statement with the statement number 0050. 

Two new error messages have been added when in diagnostic mode. ER Al 
indicates that an undefined variable has been detected. However, not all 
undefined variables are found. (Only those variables which are transmitted 
by the Fortran TOFAC routine are checked). ' ER A2 indicates that the overflow 
indicator was on when the statement was finished. This also indicates an 
undefined variable. It is possible to get ER Al, ER Al again if the statement 
is traced, and ER A2 all from the same undefined variable in the same statement. 
ER A2 can be caused by something other than an undefined variable, e.g. 
using an SPS written subprogram which turns on the overflow indicator but 
does not turn it off before it exits. Another common result of having the 
overflow indicator unexpectedly turned on is invalid division by zero error 
messages (esp. ER E7). 

4. Improved Trace 

Trace instruction will now be compiled only between BEGIN TRACE and END TRACE 

statements. One may have as many of these statements in a program as he 

desires. The END card will also act as an END TRACE. Thus if one wanted 

to trace the whole program, he could put a single BEGIN TRACE at the beginning 

of the program. Sense switch 4 still controls trace output at execution. 

Both sense switch 4 must be on and trace instructions compiled in order to 

get any trace output. BEGIN TRACE and END TRACE are NOT executable Instructions. 



They are merely directives to the compiler to either start compiling trace 
instructions or stop compiling trace instructions. Tracing costs 12 extra 
core for every IF statement for which the trace instruction is compiled. 

If one wants to trace only arithmetic statements, an *ARITHMETIC TRACE control 
card should be included. Likewise, if one wants to trace only IF statements, 
an *IF TRACE control card should be included. In either case a BEGIN TRACE 
is still required. Including neither control card is equivalent to including 
both control cards. 

If the program being traced was compiled in diagnostic mode the trace output 
will include statement and line numbers. (The peculiarities of the statement 
and line nu-.ber counter are mentioned in section 3 above.) Trace output ia 
diagnostic mode is store up and printed in groups of five statements for a 
floating point mantissa length of 8. Trace output will never exceed 120 
positions in width. All numbers from the trace are put out in source langu- 
age form. Early printing of trace output will be forced by the execution 
of any of the following: non-disk input/output statement, computed Go To, 
STOP, END, PAUSE, RETURN, or an error message. 

5« P-scaling 

P-scaling has been implemented for E format output only. Using 
P scaling one can specify the number of places before the decimal point, 
as well as the number of places after the decimal point for E format output. 
For example: 1PE20.4 would mean place 1 digit before the decimal point 
and 4 after the decimal point. The output will be right justified in the 
20 column field. Thus, IPE20.4 would be equivalent to 9X, Ell. 4 in 1620 
FORTRAN II-D. The number preceding the P can be any unsigned integer 
constant. When present the P must immediately precede the E. Once a P 
scale factor occurs in a format, all following E formats in that format 
statement will use that scaling factor until another P-scaling factor 
appears. If there is no P-scaling factor present, the E formats are com- 
piled the same way IBM FORTRAN II-D does it. Thus: 

FORMAT(E20.4, 1PE20.4, OP E20.4, 2E20.4) 

would be equivalent to 

FORMAT (E20.4, 9X, Ell. 4, 10X, E10.4, 2 (10X, E10.4)). 

6. STOP and END change 

The object coding for the STOP and END statements has been changed to that 
of a CALL EXIT. Thus, the STOP and END statements no longer halt when 
executed, but return directly to monitor. The STOP statement no longer 
prints STOP. This saves 36 core for every STOP statement in the program, 
and 12 core for the END statement. 

C. Operating Procedure 

The first deck replaces deck #8 of the Monitor object. It should be loaded 
using the Monitor loader (deck #1 of the monitor object). The second deck 
contains the object deck for the three new library subprograms, including 
monitor control card. This deck should be run under Monitor control. 
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D. EQUIPMENT REQUIRED 

Indirect Addressing, Auto Divide, a Disk Drive, and a Printer. 

E. Assemblers used: 

SPS II-D and AFIT SPS. All op codes used, however, are in SPS II-D. 

Warning: Do not insert any of IBM's corrections to Phase 1-A, Phase l-B, 
or Phase 2 of the FORTRAN compiler (deck #8). 
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Technical Documentation: 

All sections of the compiler which have been modified are preceeded by a 
card with asterisks across it and followed by a card with periods across it. 
If the change involved only a deletion, a card with dollar signs across it is 
inserted. 

An explanation of the changes made follows: 

A. Phase l-A 

Card 00230 The digit for calling the diagnostic mode debugging routine 

is initially on. 

Cards 02180-02190 The digit is turn off only if a *N0 DIAGNOSTICS control card 
is found 

Cards 02422-02428 If neither the arithmetic trace switch nor the if trace switch 
is on at the exit from phase l-A, turn both switches on. This 
is not as drastic as it sounds since no trace instructions will 
be compiled unless there is a BEGIN TRACE in the program. 

B. Phase l-B 

Cards 03022-03028 The first three letters (in double digit coding) of END TRACE 
and BEGIN TRACE preceeded by the place to go. Since one END 
TRACE is processed in the END statement routine (see below) 
previous to this point, the compiler goes directly to the next 
statement. BEGIN TRACE is processed lat|)r in the NONARA routine. 

Cards 08442-08453 Check for END TRACE before processing END statement. If it is 
an END TRACE the intermediate output will look like: 
tJ153TJl400*13l. 

Cards 08640-08650 

and 09040-09050 Disk assignment of block 1 and block 6 have been switched to 
create more room in block I. 

Cards 12495-14243 Changes for P-scaling. The compiler delays the output of an 

E format into the intermediate output until it is determined if 
P-scaling is required. Assume a format of Ew.d and a P-scaling 
factor of p. Then if w' =» d + p + 6 and x = w - w' then the 
format of xX, Ew'.d will create the desired effect using the 
implied scaling factor of the incore subs. Thus x is calculated 
and if it is strictly positive an X format specification is 
placed into the intermediate output ahead of an E format with 
the reduced width specification. If x is zero or negative, the 
E format is put into the intermediate format the same way IBM 
does it. Thus, by using an assumed scale factor of 998, the 
compiler is assured that, unless a P-scale factor is specified, 
x will always be negative and all E formats will be compiled 
as IBM does them. 

Cards 14812-14817 The intermediate output code for BEGIN TRACE would be: 

015401400132. The intermediate output codes of 153 and 154 
appear to also be in use for function calls. However, since 
these codes do not occur at the beginning of an intermediate 
output string, there is no possibility for confusion. 
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Cards 25485-2552B 



The usually intermediate output for a non-disk input/output 
statement such as READ 10, A could be: 0112T9890123T9770137 
where 

0112 means this is a READ 

T989 means that the symbol table entry in digits 19890- 

19899 refer to statement number 10. 
0~123 is the coding for a comma 

T972 is the first four digits of the symbol table entry for A. 
"0132 is the "semi-colon" which separates intermediate out- 
put strings. 

Now READ, A could be coded as: TT1129999TT123T9770137 _ _ _ _ 
And Read IFOR, A could be coded as: 011299980123T966012319770132 
where_ 

9999 is a pseudo code for free format 
£998 is a pseudo code for variable format 
1966 is the first four digits of the symbol table entry 
for IFOR. 

The patching done to the CSORN routine is used to make sure the 
variable used for variable formatting is dimension (otherwise 
an ERROR 26 will result). 



C. Phase 2 
Cards 60764-00796 

Cards 00797-00797 
and 00931-00931 

Cards 00932-00937 



Card 01485 
Card 01670 



Cards 12835-12955 
and 19327-19330 

Cards 18040-18050 
and 22554-22556 



This routine removes intermediate output from disk. The ADSL 
and GETX routines have been eliminated. 



Process the BEGIN TRACE and END TRACE statements. 

Output a BTM to the diagnostic subroutine with the statement 
and line counter in the Q address as SSSSI where SSSS is the 
statement number and I is the line counter, where I is flagged 
if the count is over 10, if the program is in diagnostic mode 
and there is not a statement number coming up for processing. 

Save statement number for statement and line counter. 

Go back to generate diagnostic statement after processing state- 
ment number. Since FORMAT statements result in a branch at 
card 01660, there will not be a diagnostic statement generated 
for FORMATS. 

Do not generate trace instructions unless TRCSW has been set 
by a BEGIN TRACE. 

Force trace output at execution time if in diagnostic mode. 
Diagnostic mode is indicated by a digit at UFSTR + 27. The 
TFM-NEXT, moves a four digit zero into the Q address of the 
instruction immediately preceeding in the output buffer, 
namely the diagnostic instruction. When executed this will 
cause the trace routine to empty the contents of its output 
area if it is not already empty. 
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Cards 18203-18207 

Cards 18573-18577 
and 20073-20077 
and 23746-23748 

Cards 23751-23756 



Cards 23758-2375E 



Cards 27193-27197 



Dorg back over diagnostic statement for a simple GOTO If 
this is in diagnostic mode. 



Force trace output for PAUSE, STOP, END, computed GOTOs and 
for non-disk input-output statements. 

Linkage to free format routine is as follows: 
BTM -2393, * 
BTM IOENT, 0, 10 
etc. 

where -2393 is the indirect entry to the free format routine 
IOENT is the entry in the lnoore subs corresponding to the 

indicated 1/0 device, 
etc. the rest of the code is as for a standard 1/0 statement. 

Linkage to variable format routine Is: 
TFM PAR, ISIZE 
BTM -2388, ARRAY 
BT IOENT, 434 
etc. 

where PAR is a five digit storage location in the incore 
subs. 

ISIZE is the number of elements in the array which 

has the format 
-2388 is the indirect entry to the variable format 

routine. 

ARRAY is the address of the first element of the array 

which contains the format. 
IOENT is the entry in the incore subs corresponding 

to the indicate I/O device. 
434 is the high core indicator (which will contain 

the address of the beginning of the compiled 

format). 

Dorg back over the diagnostic instruction for FUNCTION and 
SUBROUTINE declarations. 



// 
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♦ PUNCH RE SEQUENCED SOURCE DECK 
*LIST PRINTER 
♦OUTPUT CARD 
♦PRINT SYMBOL TABLE 
(ID) ** FORTRN FREE FORMAT INPUT/OUTPUT LIBRARY SUB 
*L I BR 

♦STORE RELOADABLE 
♦ID NUMBER 0039 
♦ASSEMBLE RELOCATABLE 
♦ERROR STOP 



FORTRN FREE FORMAT INPUT/OUTPUT LIBRARY SUB 



PROPUT 


003I6R 


PRO GET 


01044R 


NUMER2 


02640R 


MEWRET 


00308R 


MATRIX 


06518 


LPTEST 


01500R 


FORMAT 


00277R 


EPTEST 


02696R 


EPFORM 


00720R 


COMPSW 


05750 


COMPLT 


07006 


ARRAY2 


02276R 


ADDEXP 


02708R 


ADCOW 


00005R 


AM 


02288R 


AR 


01616R 


ARR 


00604R 


ARRAY 


02204R 


BACK 


00792R 


BB 


02336R 


BZ 


01736R 


CYC 


01112R 


DEC I M 


01540R 


E FORM 


02424R 


ER 


01344R 


ERMES 


01363R 


ERROR 


01384R 


FR3 


02052R 


ER6 


01172R 


ER7 


01596R 


EXP 


01606R 


EXPAI) 


00896R 


EXPSM 


00898R 


EXP2 


02768R 


F 


02219 


FAC 


02492 


FIXFL 


01111R 


FL 


01992R 


FLOAT 


00612R 


FM IMF 


03313 


FP1MK 


03283 


FSR 


02120R 


f,A D 


01007R 


GETSW 


06061 


HERE 


02370R 


INPUT 


06179 


LOUP 


00078R 


LP 


01440R 


MANSN 


00899R 


MAX2 


06145 


MINUS 


015 20R 


MORE 


00254R 


MOER 


01192R 


NONFW 


00352R 


NOP 


00443R 


MUM 


01236R 


NUMER 


01712R 


NUM2 


02560R 


ON 


00158R 


ONE 


01391R 


OUT 


00931R 


PAR 


03378 


PERM 


00977R 


PLACE 


05820 


PLUS 


01816R 


PLUS2 


02684R 


PRU 


00984R 


READ 


00006R 


SLASH 


06676 


SWC 


06090 


SWF 


05969 


TEST 


01216R 


THERF 


01766R 


TRANS 


02156R 


TSTFL 


01840R 


UNO FX 


00436R 


VAR 


0098 3R 


WELL 


00502R 


WELLP 


004 84 R 


WHAT 


00284R 


ZERO 


02404R 


30Z 


02403R 















FOKTKN FREE FORMAT INPUT/OUTPUT LIBRARY SUB 
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OOOIO 




USA 


READ 




00004 


00005 -0006 


00020 


READ 


TR 


-ADCOW i NOP 


,,,NOP CALLING INSTRUCTION 


00006 


L J 


OOOON 


00443 


00030 


ADCOW 


US 


,READ-1 


,,,CORE STORAGE ADDRESS 


00005 


00000 




00040 


FAC 


DS 


,2492 


,,,WORK AREA 


02492 


00000 




00050 




TFM 


FSR+llt FAC-32 


,,,SET UP FLOAT SHIFT RIGHT 


00018 


J6 


02131 


-2460 


00060 




A 


FSR+11,2219 




00030 


Kl 


02131 


02219 


00070 




AM 


ADCOW, 23, 10 


, , ,MOVE TO ADDRESS 


00042 


Jl 


00005 


000K3 


00080 




TFM 


-ADCOW, FOR MAT- 5 




00054 


JO 


OOOON 


-0272 


00090 




AM 


ADCOW, 7, 10 


,,, START CHECKING THOSE ADDRESSES 


00066 


J 1 


00005 


000-7 


00100 


LOOP 


BNF 


ON, -ADCOW 


,,, NEGATIVE ADDRESS MUST BE SUBSCRIPTING 


00078 


MM 


00158 


OOOON 


001 10 




CM 


-ADCOW, -7400 




00090 


J4 


OOOON 


-740- 


00120 




BL 


MORE 




00102 


M7 


00254 


01300 


00130 




AM 


ADCOW ,7,10 


,,, START LOOKING FOR NEXT INSTRUCTION 


00114 


Jl 


00005 


000-7 


00140 




AM 


ADCOW , 10, 10 


» . , 


00126 


Jl 


00005 


OOOJO 


00150 




BMR 


*- 12, -ADCOW 


, , , 


0013R 


MM 


00126 


OOOON 


00160 




B7 


LOOP-12 


, , , 


00150 


M9 


00066 


OOOOO 


00170 


ON 


CM 


-ADCOW, COMPLT 


, , , IS THIS THE END 


00158 


J4 


OOOON 


-7006 


00180 




BE 


BB 


,,,YES START EXECUTION 


00170 


M6 


02336 


01200 


00190 




CM 


-ADCOW, SWC 


,,,CHECK FOR SIMPLE VARIABLE ENTRY 


00182 


J4 


OOOON 


-6090 


002 00 




BNE 


* + 24 


, , , 


00194 


M7 


00218 


01200 


002 10 




TFM 


-ADCOW, PRO 


,,,YES - SUBSTITUTE ADDRESS 


00206 


JO 


OOOON 


-0984 


00220 




CM 


-ADCOW, MATRI X 


,,,IS THIS ARRAY ENTRY 


00218 


J4 


OOOON 


-6518 


00230 




BNE 


* + 24 




00230 


M7 


00254 


01200 


00240 




TFM 


-ADCOW, ARRAY 


,,,YES - SUBSTITUTE ADDRESS 


00242 


JO 


OOOON 


-2204 


00250 


MURE 


AM 


AOCOW, 12, 10 


,,, ONWARD TO THE NEXT P ADDRESS 


00254 


Jl 


00005 


000J2 


00260 




B7 


LOUP 




00266 


M9 


00078 


OOOOO 


002 70 


FORMAT 


USA 


BB , WHAT 




00277 


00005 -2336 












00282 


00005 -0284 


00280 


WHAT 


SM 


SWF, 5, 10 


, , , 


00 284 


12 


05969 


000-5 


00290 




BO 


PRUPUT, GETSW 


, , , BRANCH IF WRITE 


00296 


M3 


00316 


06061 


003 00 


MEWRET 


B7 


TEST 




00308 


M9 


01216 


OOOOO 


00310 


COM PL T 


DS 


,7006 


, , , 


07006 


00000 




00320 


MAX2 


US 


,6145 




06145 


00000 




00330 


SWC 


DS 


,6090 


, , , 


06090 


00000 




00340 


MATRIX 


DS 


,6518 


, , , 


06518 


ooooo 




00350 


SWF 


DS 


, 5969 


, > , 


05969 


00000 




O036O 


COMPSW 


US 


, 5750 


, , , 


5750 


ooooo 




003 70 


PLACE 


OS 


, 5820 


,,,NEXT PLACE ON RECORD — LAST 


05820 


ooooo 




003 80 


GETSW 


DS 


,6061 


,,,1 FOR WRITF, FOR READ — RWEFSW 


06061 


ooooo 




00390 


INPUT 


DS 


,6179 


, , , I/O AREA — INH 


06179 


ooooo 




004 00 


SLASH 


DS 


,6676 




06676 


ooooo 




00410 


F 


DS 


, 2219 


, , , 


02219 


ooooo 




00420 


PAR 


US 


, 3378 


, , , 


03378 


ooooo 




00430 


PRUPUT 


AM 


PLACE, 24, 10 




00316 


11 


05820 


000K4 


00440 




C 


PLACE, MAX2 ,, 


, I S I/O AREA FULL 


00 32 8 


24 


05820 


06145 


00450 




BH 


SLASH 




00340 


46 


06676 


01100 


00460 


FP1MK 


US 


, 3283 


,,,HIGH ORDER OF A FIXED NUMBER 


03283 


ooooo 




00470 


FM IMF 


US 


,3313 


,,,HIGH ORDER OF A FLOATING NO. 


03313 


ooooo 




00480 


NONEW 


TDM 


COMPSW, 


, , , FORCE 00 PUT 


00352 


15 


05750 


OOOOO 


00490 




CF 


-FM1MF 


,,, CLEAR HIGH ORDER FLAGS 


00 3 64 


33 


03311. 


OOOOO 


005 00 




CF 


-FP1MK 


,,, CLEAR HIGH ORDER FLAGS 


00 3 76 


33 


0328L 


ooooo 


005 10 




TF 


FAC-VAR 


,,,MAVE THE VARIABLE INTO FAC 


00 388 


20 


024Q2 


00981. 


00520 




SM 


VAR,2,10 ,, 




00400 


J 2 


00983 


000-2 


00530 




TF 


FAC-2,-VAR 




004 12 


20 


02490 


0098L 


00540 




BNF 


FLUAT, FIXFL 


,,,GOTO FLOATING OUPUT ROUTINE IF NEEDED 


00424 


MM 


O0612 


01111 


00550 


UNO FX 


TDM 


ERROR-3, 5 


,,, UNDEFINED FIXED WUMBFR ER R5 


00 43 6 


J 5 


01381 


00005 


00560 


NOP 


DSC 


3,413,*-4 




00443 


00003 




005 70 




BNF 


ERROR ,-FPlMK 


, , , CHECK FOR HIGH ORDER FLAG 


00448 


M4 


01384 


0328L 


005 80 




TFM 


WELL, UUT+22 ,, 


,MOVE IN FIXED POINT NUMBER 


00460 


jn 


00 5 02 


-0953 
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00590 




CF 


- F P 1 M K 




00472 


33 


0328L 


000(10 


006 00 


WELLP 


TD 


GAD, FAC 




00484 


K5 


01007 


02492 


006 10 




TF 


*-*, GAD 




00496 


21") 


OOOOO 


01007 


0062 


WELL 


DS 


,*-5 




00 50 2 


OOOOO 




00630 




TF 


FACFAC-l 




00 508 


"26 


02492 


024 91 


00640 




SM 


WELL, 2, 10 




00520 


J2 


00502 


00 0-2 


006 5 




CM 


FAC, 0, 10 




0053? 


14 


02492 


000-0 


0066 




BNE 


WELLP 




00 544 


M7 


00484 


01200 


006 70 




BNF 


*+24,UUT+22 




00556 


MM 


00580 


00953 


0068 




TFM 


-WELL, 20, 10 




00568 


J 6 


0050K 


OOOKO 


00690 




CF 


UUT+22 




00 5 80 


1.3 


00953 


OOOOO 


00700 




TF 


-PLACE, OUT+24 ,, 




00592 


20 


0582- 


00955 


007 10 


ARR 


BB 


ARRAY2 ,, 


, ARRAY CONTOL SWITCH 


00604 


M2 


022 76 


00(100 


00720 




DORG 






006 11 








00730 = 


















00740 


FLUAT 


TDM 


ERROR-3, 4 ,, 




00612 


J 5 


01381 


00004 


00 75 




BNF 


ERROR , FAC-1 ,, 


, CHECK IF FLOATING NUMBER IS DEFINED 


00624 


M4 


1 3 84 


02491 


00760 




BNF 


ERROR ,-FMlMF ,, 




00 636 


M4 


01384 


0331 1. 


00770 




TF 


UUT+22, PERM 




00 64 8 


KO 


00953 


00977 


007 8 




TF 


99.FAC-2 ,,,MOVE 


MANTISSA 


00660 


26 


00099 


02490 


0079 




TF 


-FSR-11,99 




00672 


K6 


0213J 


00099 


008 00 




BNF 


*+36,FAC-2 


.CHECK FOR NEGATIVE 


006 84 




00720 


02 490 


008 10 




TDM 


UUT+1,2,11 ,, 


,YES - PLACE MINUS 


00696 


J 5 


00932 


OOOOK 


00820 




CF 


-FSR-11 




0070 8 


L3 


021 3 J 


OOOOO 


00830 


EPFOKN 


CM 


FAC, -99, 10 ,,, 


CHECK FOR A ZERO 


00720 


14 


02492 


OOOPR 


00840 




BF 


# + 24 




007 32 


M6 


00756 


01200 


008 50 




SM 


FAC, 1,10 ,,, 


ADJUST EXPONENT FOR OUTPUT 


00744 


12 


02492 


000-1 


00860 




AM 


FAC-26,5,10 ,, 


, ROUND ANSWER 


00756 


11 


02466 


000-5 


008 70 




BNV 


BACK , , 


, CHECK FOR ALL NINES 


0076 8 


M7 


00792 


01400 


0088 




TFM 


FAC-27, 99999 ,, 


.RESTORE NINES 


00780 


16 


02465 


R9999 


008 90 


BACK 


TD 


0UT+4,FAC-31 ,, 


,MOVE IN THE NUMBER 


00792 


K5 


00935 


02461 


00900 




CF 


OUT + 4 




00 8 04 


L3 


00935 


OOOOO 


00910 




TD 


UUT+14, FAC-27 




00 8 1 6 


K5 


00945 


02465 


00920 




TD 


UUT+12, FAC-28 




00828 


K5 


00943 


02464 


00930 




TD 


OUT+10, FAC-29 




00840 


K5 


00941 


02463 


00940 




TD 


UUT+ 8,FAC-30 




008 52 


K5 


00939 


02462 


00950 




BNF 


*+24, FAC 




00864 


MA 


O088R 


02492 


00960 




TDM 


OUT+17, 2 ,, 


.NEGATIVE EXPONENT 


00876 


J5 


00948 


00002 


00970 




CF 


FAC-1 ,,, 




00888 


33 


02491 


OOOOO 


00980 


MANSN 


DS 






00899 


OOOOO 




00990 


EXPSN 


DS 


,*-l ,, 




00 89 8 


OOOOO 




01000 


EXPAD 


DS 


,*-3 ,, 




00896 


ooooo 




01010 




TD 


UUT+20, FAC-1 




00900 


K5 


00951 


02 491 


01020 




TD 


OUT+22,FAC 




009 12 


K5 


00953 


02492 


01030 




B7 


ARR-24 




00924 


M9 


00580 


OOOOO 


01040 


OUT 


DS 


1 




009 31 


00001 




01050 




UAS 


11 




00933 


00022 




01060 




use 


2,0 




00954 


00002 




01 070 


PERM 


USAC 


11, O.OOOOE+00, 




00977 


00022 




01080 




DS 


5 , , 




00982 


0000 5 




01090 


PRO 


TD 


F IXFL, VAR 




00984 


KN 


01111 


00983 


01100 


VAR . 


DS 


,PR0-1 ,, 




00983 


0000 




01110 




CF 


VAR 




0()996 


L3 


00983 


OOOOO 


0112 


GAD 


DC 


4,70,* 




01007 


00004 




01130 




BV 






010O8 


M6 


01008 


01400 


01140 




TF 


FAC, 30Z ,,, 


CLEAR FAC 


01020 


20 


02492 


02403 


01150 




BD 


PRO PUT, GETSW ,, 


. GOTO OUTPUT ROUTINE IF NEEDED 


01032 


M3 


0031.6 


06061 


01160 


PRO GET 


TF 


HERE > 30Z ,, 


.CLEAR THE INPUT AREA 


01044 


KO 


02370 


02403 


01170 




TFM 


MANSN, 1000 ,, 




01056 


J6 


00899 


-1000 
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01180 




TFM 


EXP,O t 8 


i , , RESET EXPONENT AREA 


01068 


J6 


01606 


0-000 


01190 




TFM 


TH ERE tH ERE-30 


,,,SET UP FOR RECOVERING NUMBER 


010R0 


JO 


01766 


-2340 


01200 




TDM 


BZ + 1 , 6 


,,,SET UP PRECEDING ZERO SUPRESSION 


01092 


J5 


01737 


00006 


01210 




B7 


TEST 


, , , 


01104 


M9 


01216 


00000 


01220 


F IXFL 


DS 


1 




01111 


00001 




01230 


CYC 


CM 


-PLACE, 0, 10 


, , , 


01112 


14 


0582- 


000-0 


01240 




BE 


TEST-12 


,,, BRANCH IF IT IS A BLANK 


01124 






01200 


01250 




CM 


-PLACE, 23, 10 


, , , 


01136 


14 


n R Q 7 ~ 


000K3 


01260 




BNE 


NUM 


,,, BRANCH IF NOT A COMMA 


01148 


M7 


01236 


01200 


01270 




BNF 


NOER , NOER+9 


, , , 


01160 






01201 


01280 


ER6 


TOM 


ERROR-3, 9 


, , , NO NUMBER BETWEEN COMMAS - ER R9 


01172 


J 5 


f i 


00009 


01290 




B7 


ERROR 


, , , 


01184 






00000 


01300 


NOER 


TOM 


NOER+9, -1 


,,, INDICATE COMMA FOUND 


01192 


J5 




OOOOJ 


01310 




AM 


PLACE, 2, 10 


, ,,MOVE ON 


01204 


\ I 


05820 


000-2 


01320 


TEST 


BNR 


CYC, -PLACE 


,,, RECORD MARD - GET NEXT CARD 


01216 


M5 


01112 


0582- 


0133 




B7 


SLASH 


, < , 


01228 


49 


06676 


00000 


01340 


NUM 


CM 


-PLACE, 69, 10 


, , , IS IT NUMERIC 


01236 


14 


0582- 


00009 


01350 




TOM 


NOER+9 ,0 


,,,RESET COMMA INDICATOR 


01248 


J5 


01201 


ooooo 


01360 




BH 


NUMER 


,,,YES - BRANCH 


01260 


M6 


01712 


01100 


01370 




CM 


-PLACE, 3, 10 


,,,CHECK FOR A PERIOD 


01272 


14 


0582- 


000-3 


01380 




BE 


DE C I M 


, , , 


01284 


M6 


01540 


01200 


01390 




CM 


-PLACE, 10, 10 


,,, CHECK FOR A PLUS SIGN 


01296 


14 


0582- 


OOOJO 


01400 




BE 


PLUS 


< , , 


01308 


M6 


01816 


01200 


01410 




CM 


-PLACE, 20, 10 


,,, CHECK FOR A MINUS 


01320 


14 


0582- 


OOOKO 


01420 




BE 


MINUS 


i , , 


01332 


M6 


01520 


01200 


01430 


ER 


TDM 


ERROR-3, 1 


,,, ALPHABETIC DATA ON CARD - ER Rl 


01344 


J5 


01381 


ooooi 


01440 




B7 


ERROR 


, , , 


01356 


M9 


01384 


ooooo 


01450 


ERMES 


DPR A 


,ERR0R-11 , S 




01363 


00005 -1373 












01368 


00003 K6G 


01460 




DSAC 


6,ER Ria, 


, , , 


01383 


00012 




01470 


E RRDR 


K 


,951 


,,, ERROR PRINT OUT ROUTINE 


013R4 


34 


00000 


00951 


01480 


ONE 


DC 


6, 10000, *-4 


, , , 


01391 


00006 




01490 




PUT 


ERMES 




01396 


10 


00565 


-1419 












01408 


4R 


00532 


-1363 


01500 




BD 


ARR ,GETSW 


,,,G0 ON IF OUTPUT 


01420 


M3 


00604 


06061 


01510 




B7 


LPTEST 


, , , 


01432 


M9 


01500 


OOOOO 


0152 


LP 


CM 


-PLACE, 0, 10 


,,,MOVE TO NEXT BLANK OR COMMA 


01440 


14 


0582- 


000-0 


01530 




BE 


TSTFL 


, , , 


01452 


M6 


01840 


01200 


01540 




CM 


-PLACE, 23, 10 


, , , 


01464 


14 


0582- 


00OK3 


01550 




BE 


TSTFL 


» , , 


01476 


M6 


01840 


01200 


01560 




AM 


PLACE, 2, 10 


, , , 


01488 


11 


05820 


000-2 


01570 


LPTEST 


BNR 


LP , -PLACE 


, , , 


01500 


M5 


01440 


0582- 


01580 




B7 


TSTFL 


, , , 


01512 


M9 


01840 


00000 


01590 


MINUS 


SF 


MAMSN 


,,, INDICATE NEGATIVE MANTISSA 


01520 


L2 


00899 


OOOOO 


01600 




B7 


PLUS 


, , , 


01532 


M9 


01816 


OOOOO 


01610 


DEC IM 


BD 


*+32, EXPAD 


,,, CHECK FOR TWO DECIMAL POINTS 


01540 


ML 


01572 


00896 


01620 




TDM 


ERROR-3, 2 


, , , ER R2 


01552 


J5 


01381 


00002 


01630 




B7 


ERROR 


, , , 


01564 


M9 


01384 


OOOOO 


01640 




TFM 


EXPA0,O, 10 


.CLEAR EXPONENT ADD AREA 


01572 


J6 


00896 


000-0 


01650 




BNF 


PLUS, FIXFL 


,,,CHECK IF FLOATING 


01584 


MM 


01816 


01111 


01660 


ER7 


TDM 


ERROR-3, 7 


,,,N0 ER R7 


01596 


J5 


01381 


00007 


01670 


EXP 


DC 


4,0 ,*-l 


, , , 


01606 


00004 




01680 




87 


ERROR 




01608 


M9 


01384 


OOOOO 


01690 


AR 


CM 


-PLACE, 0, 10 


,,,IS IT BLEANK 


01616 


14 


0582- 


000-0 


01700 




BE 


TSTFL 




01628 


M6 


01840 


01200 


01710 




CM 


-PLACE, 23, 10 


,,,0R A COMMA 


01640 


14 


0582- 


000K3 


1)1720 




BE 


TSTFL 




01652 


M6 


01840 


01200 


01730 




CM 


-PLACE, 3, 10 


, , , IS IT A PERIOD 


01664 


14 


0582- 


000-3 


01740 




BE 


DECIM 




01676 


M6 


01540 


01200 
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CM 


-PLACE, 69, 10 


, , , IS IT NUMERIC 


01688 


14 


0582- 


00009 


01760 




BNH 


EFORM 




01700 


M7 


02424 


01100 


01770 


NUMER 


A 


EXP , EXPAD 


,,,UP EXPONENT BY EXPAD 


01712 


KJ 


01606 


00896 


01780 




CM 


-PLACE, 70, 10 


, , , IS IT ZERO 


01724 


14 


0582- 


OOOPO 


01790 


BZ 


BE 


ZERO 


,,,THIS MAY BE A NOP 


01736 


M6 


02404 


01200 


01800 




TDM 


BZ+1, 1 


, , , MAKE IT A NOP 


01748 


J5 


01737 


00001 


018 10 




TO 


*-*, -PLACE 


,,,SAVE THAT DIGIT 


01760 


25 


OOOOO 


0582- 


01820 


THERE 


DS 


,*-5 




01766 


OOOOO 




01830 




AM 


THERE, 1, 10 


, , ,MOVE TO NEXT DIGIT 


01772 


Jl 


01766 


000-1 


01840 




BNR 


PLUS, -THERE 


,,,CHECK FOR OVER FLOW 


01784 


MN 


01816 


01760 


01850 




TDM 


ERROR-3, 8 


, , , ER R8 


01796 


J5 


01381 


00008 


0186 




B7 


ERROR 




01808 


M9 


01384 


OOOOO 


01870 


PLUS 


AM 


PLACE, 2, 10 


,,,MOVE TO NEXT CHARATER 


01816 


11 


05820 


000-2 


01880 




BNR 


AR, -PLACE 


,,, CHECK FOR END OF CARD 


01828 


M5 


01616 


0582- 


01890 


TSTFL 


BNF 


FL, FIXFL 


,,,TEST IF FLOATING 


01840 


MM 


01992 


01111 


01900 




SM 


THERE, 1,10 


,,,BACK TRACK 


01852 


J2 


01766 


000-1 


01910 




A 


FAC, -THERE 


,,,A00 IT IN 


01864 


2 J 


0249? 


01760 


0192 




MF 


FAC, MAMSN 


, , , SET S IGN 


01876 


7 J 


02492 


00899 


01930 




SF 


-FP1MK 


,,,SET HIGH ORDER FLAG 


01888 


32 


0328L 


OOOOO 


01940 




TF 


*+30,FPlMK 




01900 


K6 


01930 


03283 


01950 




SM 


*+18,l,10 




01912 


J2 


01930 


000-1 


01960 




CM 


*-*,(), 10 


,,, CHECK FOR OVERFLOW 


01924 


14 


OOOOO 


000-0 


01970 




BE 


TRAMS 




01936 


M6 


02156 


01200 


01980 




RCTY 




,, ,YES TYPE ER R6 


01948 


34 


OOOOO 


00102 


01990 




TDM 


ERROR-3, 6 




01960 


J5 


01381 


00006 


02 000 




WATY 


EkROR-1 1 




01972 


L9 


01373 


00100 


02010 




B7 


TRANS 




01984 


M9 


02156 


OOOOO 


02 02 


FL 


BD 


*+24,HERE-30 


,,,CHECK FOR ZERO 


01992 


ML 


02016 


02 340 


02 03 




TFM 


EXP, -99, 8 


, , ,SET -99 EXPONENT 


02004 


J6 


01606 


0-09R 


02 04 




SF 


EXP-1 


,,,SET UP EXPONENT 


02016 


L2 


01605 


OOOOO 


02 05 




CM 


EXP-2,0, 10 


,,, CHECK FOR OVERFLOW 


02028 


J4 


01604 


000-0 


02 06 




BE 


*+44 




02040 


M6 


02084 


01200 


02 070 


Ek3 


TFM 


tXP,99,8 


, , , FOR, THE SECOND TIME AROUND 


02052 


J6 


01606 


0-099 


02080 




TIJM 


tRRUk-3,3 




02064 


J5 


013H1 


00003 


02 09 




B7 


ERROR 




02076 


M9 


013 84 


ooooo 


02100 




TF 


FAC, EXP 


, , ,MOVE IN THE EXPONENT 


02084 


2(1 


02492 


01606 


021 10 




SF 


HERE-30 




02096 


L2 


02340 


OOOOO 


021.2 




TF 


FAC-2 ,H ER E-l 


, , ,MOVE IM THE MANT ISSA 


02108 


20 


02490 


02369 


02130 


FSR 


TF 


FAC-2,*-* 


,,SET MANTISSA TO RIGHT LENGTH 


02120 


26 


02490 


OOOOO 


02140 




BNF 


*+24, MANSN 


,,SET CORRECT SIGN 


02132 


MM 


02156 


00899 


02150 




SF 


FAC-2 




02144 


32 


02 490 


OOOOO 


02160 


TRANS 


TF 


-VAR , FAC 


,,MOVE VALUE INTO THE VARIABLE 


02156 


K6 


0098L 


02492 


02170 




SM 


VAR ,2,10 




02168 


J2 


00983 


000-2 


02180 




TF 


-VAR , FAC-2 




02180 


K6 


0098L 


02490 


02190 




B 


ARR 




02192 


M9 


00604 


OOOOO 


02 2 00 


ARRAY 


TUM 


ARR+1 ,9 


. , , ,SET ARRAY SWITCH 


02204 


J5 


00605 


00009 


02210 




TF 


AM+11,F 


,,,SET UP LENGTH ADDITION 


02216 


K6 


02299 


02219 


0222 




AM 


AM+11 ,2, 10 




02228 


Jl 


02299 


000-2 


02230 




BNF 


*+36,ARRAY-l 


FIXED OR FLOAT 


2240 


MM 


022 76 


02203 


02240 




TF 


AM+11 ,2221 




02252 


K6 


0229Q 


0222 1 


02250 




SF 


AM+11 




02264 


L2 


02299 


OOOOO 


02260 


ARKAY2 


TF 


VAR , ARRAY-1 


,, .LINKAGE TO SIMPLE VA I ABLE HANDELER 


02276 


KL1 


00983 


02203 


022 70 


AM 


AM 


ARRAY-1 




02288 


Jl 


02203 


-0000 


02280 




SM 


PAR ,1,10 


,,,TEST FOR END OF ARRAY 


02300 


12 


03378 


000-1 


022 90 




BNN 


PRO 




02312 


M6 


00984 


01300 


02300 




TDM 


ARR+1, 2 


,, .RESET THAT SWITCH 


02324 


J5 


00605 


0000 2 


02310 


BK 


BB2 




, , , RETURN 


02336 


42 


OOOOO 


OOOOO 


02 32 


HERE 


DC 


33,0 




02370 


00033 




02 33 




DC 


i, a 




02371 


00001 





FURTRN FREE FORMAT INPUT/OUTPUT LIBRARY SUB 



PAGE 



b 



02340 


3 0Z 


DC 


32,0 








02403 


00032 




02350 


ZERO 


SM 


exp,i, 


10 , 


, PRECEDING ZERO 


02404 


J2 


01606 


000-1 


02360 




B7 


PLUS 








02416 


M9 


01816 


00000 


02370 


E FORM 


BNF 


*+20,FIXFL , 


, FIXED 


- WERE IN TROUBLE 


02424 


MM 


02444 


01111 


02380 




BY 


ER7 








02436 


M9 


01596 


000(10 


02390 




TFM 


NUMER2+6, FXP2-3 , 






02444 


JO 


02646 


-2765 


024 00 




CM 


-PLACE 


,45,10 , 


, CHECK 


FOR AM E 


02456 


14 


0582- 


000M5 


02410 




BNE 


ER 




,N0 - 


BRAMC H TO ER Rl 


0246B 


M7 


01344 


01200 


02420 




Ah 


PLACE, 


2,10 , 


, MOVE 


TO NEXT CHARACTER 


02480 


11 


05820 


000-2 


02430 




CM 


-PLACE 


,10,10 , 


, IS IT 


A PLUS (+) 


02492 


14 


0582- 


OOOJO 


02440 




BE 


PLUS2 








02504 


M6. 


02684 


01200 


024b0 




CM 


-PLACE 


,20,10 , 


, IS IT 


A MINUS (-) 


02516 


14 


0582- 


OOOKO 


02460 




BNE 


EPTEST 








02528 


M7 


02696 


01200 


02470 




SF 


EXPSN 




,YES - 


SET EXPONENT SIGN' 


02540 


L2 


00898 


00000 


02480 




B7 


PLUS2 








02552 


M9 


02684 


00000 


02490 


NUM2 


CM 


-PLACE 


,69,10 , 


, IS IT 


NUMERIC 


02560 


1^ 


0582- 


00009 


02500 




BH 


NUMER2 




,YES - 


BRANCH 


02572 


M6 


02640 


onoo 


02 510 




CM 


-PLACE 


,0,10 , 


, IS IT 


BLANK 


02584 


14 


0582- 


ooo-o 


02 52 




BE 


ADDEXP 




,YFS - 


O.K. 


02596 


M6 


02708 


01200 


02 53 




CM 


-PLACE 


,23,10 , 


, I S IT 


A COMMA 


02608 


14 


0582- 


O00K3 


02 54 




BE 


ADDFXP 




,YFS - 


O.K. 


02620 


M6 


02708 


01200 


02 55 




B7 


ER 




, FRROR 




02632 


M9 


01344 


00000 


02560 


NUMER2 


TO 


*-*, -PLACE , 


,SAVE 


THAT DIGIT 


02640 


25 


00000 


0582- 


02570 




AM 


NUMFR2+6, 1, 10 , 


,MOVF 


TO NEXT DIGIT 


02652 


Jl 


02646 


ooo-i 


02580 




B N R 


PLUS2, 


VUMFR2+6,11 , 






02664 


MM 


0268A 


02 640 


02 590 




B7 


ER3 




, OVER 


FLOW 


02676 


M9 


02052 


00000 


02600 


PLUS2 


AM 


PLACE, 


2,10 , 


, GOTO 


NEXT CHARACTER 


02684 


11 


05820 


000-2 


02610 


FPTFST 


BNR 


NUM?,- 


PLACE , 






02696 


M5 


02560 


0582- 


0262 


ADD EXP 


SM 


NUMER 2 + 6,1, 10 , 


, ADD INTO FXPONENT AREA 


02708 


J2 


02646 


000-1 


02630 




BNF 


* + 24, EXPSN 






02720 


MM 


02 744 


00898 


02640 




SF 


NUMFR2+6,,6 ,,,SFT 


S I GN 




02732 


L2 


02 640 


000(10 


02 65 




A 


EXP,MUMFR2+6, 11 , 






02744 


KJ 


01606 


02 64(1 


02 66 




B7 


FL 








02756 


M9 


01992 


(10000 


02 6 70 


EXP2 


DC 


6,0 








02768 


00006 




02680 




DC 


1 , a 








02769 


00001 




02 690 




DFMD 


1 








0000 1 
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SYMBOL TABLE 



12NINE 


06089 


WAOBJP 


04664 


USEDFS 


02263 


SUBFCT 


02293 


SCSODA 


05859 


SCSDAT 


05851 


SAVSYM 


02243 


REVSCN 


05648 


RECMKS 


16023 


PUSTSN 


02294 


PRSCAN 


02454 


PROGST 


02257 


phb'dda 


024 86 


PHBDAT 


U2478 


PHAODA 


16000 


PGRMSW 


02226 


N21KEY 


06099 


MULDFF 


02384 


MONCAL 


00796 


I.00P41 


02994 


LENGTH 


02248 


INT0P1 


02385 


INPUTD 


06091 


INDATA 


05805 


FKTEST 


05176 


FCTEND 


02318 


FACTRC 


02227 


F86440 


02430 


ERMES3 


06015 


ERMES2 


05959 


ERMES1 


05899 


OISKSW 


02383 


D I MOD A 


05836 


D I MOAT 


05 82 8 


COI'-IAUD 


02262 


CH I END 


15999 


CALLP2 


02400 


CALLP1 


04244 


BUFSCS 


06218 


BUFEQT 


O6320 


BUFDI M 


07122 


BIGPRT 


02230 


ALPHRM 


05760 


AFTBL 


15035 


BLK8 


02461 


B7SCT 


00003 


B8DAD 


17340 


CARD 


15036 


COCTL 


04 1. 1 6 


CH I 


15139 


CHI 5 


15839 


COMST 


02382 


DUMMY 


99999 


EMTLN 


02248 


ERRET 


006 02 


ELMG 


02250 


FMON 


02324 


FP2 


02298 


FWORK 


05895 


GRMK 


02693 


HEAD 


05755 


IFTRC 


02226 


IN DO A 


05 813 


INDIV 


02424 


I MIT 


05875 


IOCAL 


00716 


IOGT 


00566 


IOPT 


00532 


IORBC 


0052 


IORT 


00565 


IOSK 


00554 


IPPT 


03542 


IPTY 


03574 


JAY 


02367 


KLNG 


02252 


KWORK 


05897 


LDPHA 


16024 


LIST 


02228 


LSTAD 


02308 


NXLOC 


02372 


Nl 


02233 


Nil 


02526 


Nl 14 


02 83 8 


Nil 42 


03102 


N12 


03598 


N2 


02238 


M21 


03706 


N31 


05520 


PGHD 


05588 


PGHD2 


05774 


PGH03 


05 76 5 


PGNUM 


02222 


PRST 


02229 


PRTAD 


02502 


PRTHD 


02517 


POT 


05720 


P2PTR 


02 31 3 


RDOMF 


03258 


RECLG 


02243 


STBL 


02377 


TBCNT 


02429 


TEND 


02303 


Till 


02933 


T112 


03065 


T113 


03089 


Tl 14 


03149 


W 


02240 


WADK 


04868 


WASS 


04504 


WASS2 


04644 


WW 


02296 
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PHASE 


1-A 






NOVEMBER, 1966 


LOCTN 


OP 




Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 










00010 


****** 


1620 FORTRAN II-D PHASE 1-A 


022 18 








00020 




DORG 


02218 




02222 




00005 




00030 




DC 


5 


,-100 


02222 




00003 




00040 


PGNUM 


DC 


3,1,* 




02223 




0000 1 




00050 




DSC 


1 


,2 


0222 5 




00002 




00060 




DC 


2 


,67 


02226 




00006 




00070 


PGRMSW 


DSC 


6,8 




02226 




00000 




00080 


IFTRC 


DS 


, PGRMSW 




02227 




00000 




00090 


FACTRC 


DS 


,PGRMSW+1 




02228 




00000 




00100 


LIST 


DS 


.PGRMSW+2 




02229 




00000 




001 10 


PRST 


DS 


,PGRMSW+3 




02230 




00000 




00120 


BIGPRT 


DS 


,PGRMSW+4 




02233 




00002 




00130 


Nl 


DC 


2 


,0 


02238 




00005 




00140 


N2 


DC 


5 


,0 


02240 




00002 




00150 


W 


DC 


2 


,0 


02243 




0000 3 




00160 


RECLG 


DC 


3 


,000 


02243 




000 1 2 




00170 


SAVSYM 


DS 


12 


» RECLG 


02248 




00005 




00180 


LENGTH 


DS 


5 




02250 




00002 




00190 


FLNG 


DS 


2 




02252 








00200 


KLNG 


DS 


2 




02257 




00005 




00210 


PROGST 


DC 


5 


,00000 


02262 




00005 




00220 


COMADD 


DC 


5 


, 19999 










00225 


*********************** *********#*******###«*##<: 


02263 




00030 




00230 


USEDFS 


DSC 


30 


, 100 










00235 










02293 




00001 




O024O 


SUBFCT 


DC 


1 


jo 


02294 




00001 




00250 


PUSTSN 


DSC 


1 


,0 


02296 




00002 




00260 


WW 


DS 


2 




02298 




00002 




00270 


FP2 


DS . 


2 




02303 




00005 




00280 


TEND 


DS 


5 




02308 




00005 




00290 


LSTAD 


DS 


5 




02313 




00005 




00 300 


P2PTR 


DS 


5 




023 18 




00005 




00310 


FCT END 


DS 


5 




02323 




00005 




00320 




DS 


5 




02324 


26 


02366 


02323 


00330 


FMON 


TF 


*+42,FM0N 


-1,, SETUP ROUTINE ENTRY 


02336 


16 


00565 


923 59 


00340 




TFM 


IORT,*+23 




02348 


49 


00566 


90000 


00350 




B 


IOGT, ,7 




02360 


49 


00000 


00000 


00 360 




B 




GO TO EXECUTE CALLED ROUTINE 


02367 








00370 




DORG 


*-A 




02367 








00380 


JAY 


DSC 


1 


,2 


02372 








00390 


NXLOC 


DC 


5 


, 15999 


02377 




00005 




00400 


STBL 


DS 


5 




02382 




00005 




00410 


COMST 


DS 


5 




02383 








00 420 


DISKSW 


DSC 


1,0 




02384 




00001 




00430 


MULDEF 


DC 


1,0 




02385 




00001 




00440 


INT0P1 


DSC 


1,0 




02390 




00005 




00450 




DC 


5,00600 




02393 




00003 




00460 




DC 


3,001 




02 398 




00005 


■15036 


00470 




DSA 


CARD 








00001 




00480 




DC 


i ,a 




02400 


16 


02359 


6-2461 


00490 


CALLP2 


TFM 


FMON+35, BLK8 


024 12 


17 


02324 


62400 


00500 




BTM 


FM0N.CALLP2 


02424 




00001 




00510 


INDIV 


DS 


1 












00520 


* 


INDIV = FOR CARDS, 1 FOR TYPEWRITER, 










00 530 


* 




FLAGGED 3 FOR PAPER TAPE 


02429 




00005 




00540 


TBCNT 


DC 


5 


,00000 


02248 




00000 




00550 


ENTLN 


DS 




,RECLG+5 


***** 


1620 FORTRAN II-D 


PHASE 


1-A 






NOVEMBER, 1966 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 


15035 




00000 




00560 


AFT8L 


DS 


,15035 




15139 




00430 


X2 


00570 


CHI 


DAS 


430 


, 15139 


15839 




00000 




00580 


CHI5 


DS 




,CHI+700 


15999 




00000 




00590 


CHIEND 


DS 




,CHI+860 


15036 




00000 




00600 


CARD 


DS 


,CHI-103 




00716 




00000 




00610 


IOCAL 


DS 


,716 




00566 




00000 




00620 


IOGT 


OS 


,566 




00520 




00000 




00630 


IORBC 


DS 


,520 




00532 




00000 




00640 


IOPT 


DS 


,532 




00554 




00000 




00650 


IOSK 


DS 


,554 




00602 




00000 




00660 


ERRET 


DS 


,602 




00565 




00000 




00670 


IORT 


DS 


,565 




00796 




00000 




00680 


MONCAL 


DS 


,796 




02430 


16 


02359 


60000 


00690 


E86440 


TFM 


FMON+35, , 


, B LK7 


02442 


17 


.02324 


62430 


00700 




BTM 


FMON 


,E86440 


02461 




00000 




00710 


BLK8 


DS 


,E86440+31 


02454 


16 


02359 


62478 


00720 


PRSCAN 


TFM 


FMON+35 


, PHBDAT 


02466 


17 


02324 


40512 


00730 




BTM 


FMON ,10512,, CALL IN PHASEB AND EXECUTE 


02478 




00002 




00740 


PHBDAT 


DSC 


2,22 




02484 




00005 


62486 


00750 




DSA 


PHBDDA 




02485 




00001 




00760 




DC 


1 ,a 




02486 




00001 




00770 


PHBDDA 


DSC 


1 ,0 




02491 




00005 




00780 




DC 


5,17200 




02494 




00003 




00790 




DC 


3,084,,, 


SECTOR COUNT OF PHASEB 


02499 




00005 


92430 


00800 




DSA 


E86440 




02500 




00001 




00810 




DC 


i,a 




17340 




00000 




00820 


B8DAD 


DS 


,17340 




00003 




00000 




00830 


B7SCT 


DS 


,3 




02502 




00014 




00840 


PRTAD 


DDA 


,1,B8DAD, 


B7SCT,Nll+4 


02516 




00001 




00850 




DC 


1,3 




025 17 




00002 




00860 


PRTHD 


DSC 


2,22,,, 


READ PAGE OFLO 


02523 




00005 


62502 


00870 




DSA 


PRTAD 




02524 




00001 




00880 




DC 


1 ,a 




02526 


46 


02538 


01400 


00890 


Mil 


BV 


*+12 




02538 


15 


00000 


00000 


00900 




TDM 


00000 


,0 


02550 


11 


02568 


20000 


00910 




AM 


* + 18 


,20000 ,7, CALCULATE MFMORY SIZE 


02562 


31 


60004 


05759 


00920 




TR 


1 


, AL PHRM-1 ,26 


025 74 


45 


02550 


00000 


00930 




BNR 


*-24 


,0 


02586 


26 


02377 


02568 


00940 




TF 


STBL 


,*-18 


02598 


26 


05826 


02377 


00950 




TF 


INDDA+13 


, STBL 


026 10 


12 


05826 


009-99 


00960 




SM 


INDDA+13 


,999 ,9 


02622 


16 


00565 


62645 


00970 




TFM . 


IORT 


,* + 23 


02634 


49 


00566 


65805 


00980 




B 


IOGT 


.INDATA ,7, INITIALIZE SYMBOL TABLE 


02646 


12 


05823 


00091 


00990 




SM 


INDDA+10 


, 1 ,10 


02658 


24 


05826 


02372 


01000 




C 


INDDA+13 


, NXLOC 


02670 


46 


02622 


01300 


01010 




BNL 


*-48 




02682 


15 


06318 


00000 


01020 




TDM 


BUFSCS+100,*-* 


02693 




00001 




01030 


GRMK 


DGM 


* 




02694 


25 


07120 


02693 


01040 




TD 


BUFEOT +800, GRMK 


02706 


25 


07222 


02693 


01050 




TD 


BUFD I M+100 ,GRMK 


02718 


26 


02933 


02377 


01060 




TF 


Till 


,STBL 


02730 


26 


02318 


02377 


01070 




TF 


FCTEND 


, STBL 


02742 


16 


00565 


62765 


1080 




TFM 


IORT 


,* + 23 


02754 


49 


00566 


65828 


01090 




B 


IOGT 


, D IMDAT ,7, GET FIRST 5 DIM ENTRIES 


02 766 


26 


05841 


07167 


01100 




TF 


DIMDDA+5 


.BUFDIM+45,, IN EOUI VALFNCF TABLE DIM FNT 


02778 


25 


05836 


07162 


OHIO 




TD 


OIMODA 


, BUFDIM+40 


02790 


16 


05844 


00908 


01120 




TFM 


D IMDDA+8 


,008 ,9 



zo 



Zi 



1620 FORTRAN II-D PHASE 1-A 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 




02 8 02 


16 


05849 


©6320 


01130 




TFM 


DIMODA+13 


, BUFEOT 






02814 


16 


00565 


92837 


01140 




TFM 


IORT 


,* + 23 






02826 


49 


00566 


8-58 28 


1 1 50 




g 


I OGT 


, D IMDAT 


,7, 


GET 8 SFCTORS OF EQUIV. TABLF 


02838 


1 1 


02856 


00046 


1 1 60 


N114 


AM 


#-4*18 


, 16 


, 10, 


LOAD SYM TABLE FROM EOUIV TABLE 


02850 


24 


©6315 


06089 


Oil 70 






BUFEOT— 5 


, 12NINE 


,2, 


IS ENTRY ALL NIMFS 


02 862 


46 


03258 


01200 






BE 


RDONE 








02874 


26 


02904 


02856 


01190 




j f= 




.N114-H8 






02886 


1 1 


02904 


00094 


01200 




AM 


* + 18 


,04 


, 10 




02898 


1 2 


99999 


00099 


01210 




SM 


DUMMY 


,09 


, 10, 


DETERMINE SUBROUTINE ADDRESS 


02910 


13 


02904 


00095 


01220 




MM 


*-6 


,05 


,610 




02922 


32 


00095 


00000 


01230 




SF 


95 








02933 




00005 




01240 


Till 


OS 


5 


, * 


, 


SYMBOL TABLE POINTER 


02934 


1 1 


00099 


8-2243 


01250 




AM 


99 


, ENTLN-5 






02946 


26 


02933 


00099 


01260 




TF 


Till 


,99 


,6, 


STORE SUBR. ADDRESS IN SYM TABLE 


02958 


12 


02933 


00095 


01270 




SM 


Till 


,5 


, 10 




02970 


26 


03065 


02856 


01280 




TF 


T112 


.N114-H8 


, , 


ELIMINATE BLANKS FROM NAME 


02982 


12 


03065 


000-i2 


01290 




SM 


T112 


,12 


, 10 




02994 


11 


03065 


00092 


01300 


L00P41 


AM 


T112 


,02 


, 10 




03006 


24 


03065 


02856 


01310 




C 


T112 


.N114+18 






03018 


46 


03102 


01100 


01320 




BH 


N1142 








03030 


26 


03089 


03065 


01 330 




TF 


T113 


,T112 






03042 


12 


03089 


00091 


01340 




SM 


T113 


,01 


, 10 




03054 


32 


03089 


00000 


01350 




SF 


T113 




,6 




03065 




00005 




1 360 


Tl 1 2 


OS 


5 


, * 






03066 


14 


03065 


oooeo 


01 370 




CM 


T112 


,0.0 


,610 




03078 


33 


03089 


00000 


01380 




C F 


T 1 1 3 




,6 




03089 




00005 




01390 


T 1 1 3 


OS 




, * 






03090 


47 


02994 


01200 








LO0P41 








03102 


1 2 


03065 


00002 


01410 


Nil 42 


SM 


T 1 1 2 


,02 


, 10 




031 14 


26 


03089 


028 56 


01420 




TF 


T 1 1 3 


,N114-t-18 






03126 


12 


03089 


00041 


01430 




SM 


T113 


,11 


, 10 




03138 


32 


03089 


00000 


01440 




SF 


T113 




,6 




03149 




00005 




01450 


T 1 1 4 


DS 


5 


» * 






03150 


26 


03149 


03065 


01460 




TF 


T114 


,T112 






03162 


22 


03149 


03089 


01470 




s 


T114 


,T113 






03174 


11 


03149 


oooei 


01480 




AM 


T114 


,01 


, 10 




03186 


21 


02372 


03149 


01490 




A 


NXLOC 


,T114 






03198 


26 


0237? 


03065 


01500 




TF 


NXLOC 


,T112 


,611, 


STORE SUBR. NAME IN NAME TABLE 


032 10 


26 


02933 


02372 


01510 




TF 


Till 


,NXLOC 


,6, 


STORE POINTER IN SYM. TABLE 


03222 


12 


02933 


00095 


01520 




SM 


Till 


,05 


, 10 




03234 


26 


02318 


02933 


01530 




TF 


FCTEND 


,T111 






03246 


11 


02429 


oooei 


01540 




AM 


TBCNT 


,01 


, 10, 


UPDATE TABLE COUNT 


03258 


14 


02856 


€7115 


01550 


RDONE 


CM 


N114+18 


,BUFEOT+795 




03270 


47 


02838 


01300 


01560 




BL 


N114 








03282 


12 


02318 


00095 


01570 




SM 


FCTEND 


,05 


, 10 




03294 


12 


03312 


00092 


01580 




SM 


* + 18 


,02 


, 10, 


INITIALIZE READ IN AREA 


03306 


16 


45999 


00090 


01590 




TFM 


CH I END 


,00 


,210 




03318 


14 


03312 


1-5139 


01600 




CM 


*-6 


,CHI 






03330 


46 


03294 


01300 


01610 




BNL 


*-36 








03342 


26 


15999 


05760 


01620 




TF 


CHI END 


, ALPHRM 






03354 


16 


00565 


93377 


01630 




TFM 


IORT, *+2 3 




GET HEAD 


03366 


49 


00566 


92517 


01640 




B 


I OGT , PRTHD , 7 






03378 


31 


02530 


15837 


01650 




TR 


N11 + 4,CHIEND-162, , 


, BLANK 


HEADING SFCTOR 


03390 


16 


02693 


•90000 


01660 




TFM 


Nll+4+163 




CLFAR 


RM 


03402 


16 


00565 


93425 


01670 




TFM 


I0RT,*+23 




PUT CLEARED HEADING 


03414 


49 


00520 


©2517 


01680 




B 


I ORBC , PRTHD , 7 






03426 


34 


00000 


00971 


01690 




34 


,0971 , , 




SKIP 


TO 1 IMMEDIATE 



c 



22 



CP 



1620 FORTRAN II-D PHASE 1-A 



NOVFMBFR, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




03438 


25 


06091 


00426 


01700 




TD 


INPUTD ,426 




DETERMINE INPUT DFVICF 


03450 


33 


06091 


00000 


01710 




CF 


INPUTD 






03462 


14 


06091 


00091 


01720 




CM 


INPUTD ,01 


, 10 




03474 


46 


03574 


01200 


01730 




BE 


IPTY 






03486 


14 


06091 


00063 


01740 




CM 


INPUTD ,03 


, 10 




03498 


46 


03542 


01200 


01750 




BE 


IPPT 






03510 


15 


02424 


00000 


01760 




TDM 


IMDIV ,0 




CARD INPUT 


03522 


16 


06098 


00040 


01770 




TFM 


N21KEY-1 ,10 


, 10 




03534 


49 


03598 


00000 


01780 




B 


N12 






03541 








01790 




DORG 


*-4 






03542 


15 


02424 


00003 


01800 


IPPT 


TDM 


INDIV ,3 


,11, 


PAPFR TAPE INPUT 


03554 


16 


06098 


00098 


01810 




TFM 


N21KEY-1 ,08 


, 10 




03566 


49 


03598 


00000 


01820 




B 


N12 






03573 








01830 




DORG 


*-4 






03574 


15 


02424 


00001 


01840 


IPTY 


TDM 


INDIV ,1 




TYPEWRITER INPUT 


03586' 


16 


06098 


00096 


01850 




TFM 


N21KEY-1 ,06 


, 10 




03598 


16 


00565 


936 21 


01860 


N12 


TFM 


IORT ,*+23 






03610 


49 


00566 


958 51 


01870 




B 


IOGT ,SCSDAT 


,7, 


GET SYSTEM COMMUNICATION SECTOR 


03622 


25 


02258 


06294 


018R0 




TD 


COMADD-4 ,BUFSCS+76,, 


MOVE OBJECT TIME MACHINE SIZF 


03634 


26 


02382 


02262 


01890 




TF 


COMST , COMADD 






03646 


31 


06218 


05875 


01900 




TR 


BUFSCS ,INIT 




SET UP DIM IN SYS CflMM SECTOR 


03658 


31 


00402 


05874 


01910 




TR 


00402 ,INIT-1 




SET UP DIM IN SYS COMM AREA 


03670 


26 


02250 


06264 


01920 




TF 


FLNG .BUFSCS+46,, 


MOVE F 


03682 


26 


02252 


06266 


01930 




TF 


KLNG ,BUFSCS+48,, 


MOVE K 


03694 


25 


02230 


06283 


01940 




TD 


BIGPRT,BUFSCS+65 


,,SET PRINTER SIZE 


03706 


14 


06091 


00091 


01950 


N21 


CM 


INPUTD ,01 


, 10 




03718 


47 


03742 


01200 


01960 




BNE 


* + 24 






03730 


34 


00000 


00102 


01970 




RCTY 








03742 


16 


00565 


63765 


01980 




TFM 


IORT ,*+23 




READ AN INPUT RECORD 


03754 


49 


00566 


©6092 


01990 




B 


IOGT ,N21KEY 


-7 ,7, 


USING IORT. 


03766 


14 


06091 


00091 


02000 




CM 


INPUTD ,01 


, 10 




03778 


47 


03802 


01200 


02010 




BNE 


* + 24 






03790 


46 


03730 


00400 


02020 




BC4 


N21+24 , 




ALLOWS GOOF SWITCH 


03802 


14 


15139 


00044 


02030 




CM 


CHI ,14 


, 10, 


IS THIS A CONTROL STATEMENT 


03814 


47 


04244 


01200 


02040 




BNE 


CALLP1 , 




MO, CALL IN PASS 1 


03826 


33 


15142 


00000 


02050 




CF 


CHI + 3 






03838 


14 


15143 


0-576 2 


02060 




CM 


CHI+4,5762,8, 


IS THIS 


APSTSN STATEMENT 


03850 


46 


04504 


01200 


02070 




BE 


WASS , 




YES 


03862 


14 


15143 


05756 


02080 




CM 


CHI+4,5756,8, 


IS THIS 


A POBJP ST. 


03874 


46 


04664 


01200 


02090 




BE 


WAORJP , 




YFS 


03886 


14 


15143 


05344 


02100 




CM 


CHI + 4,5344-,8, 


IS THIS 


A LDISK ST. 


03898 


46 


04868 


01200 


02110 




BE 


WADK , 




YES 


03910 


14 


15143 


04641 


02120 




CM 


CHI+4,4641,8, 


IS THIS 


A FAND5 ST. 


03922 


46 


05176 


01200 


02130 




BE 


FKTEST , 




YES 


03934 


14 


15143 


04946 


02140 




CM 


CHI+4,4946,8, 


IF TRACE 


03946 


47 


03970 


01200 


02150 




BNE 


*+24, , , 


NO 




03958 


17 


04116 


92226 


02160 




BTM 


CDCTL, IFTRC 






03970 


14 


15143 


04153 


02170 




CM 


CHI+4,4153 ,8, 


ALL STATEMENT MAP 










02173 


**************************#* 


********************* ******************* 


03982 


46 


04128 


01200 


02177 




BE 


CDCTL+12 , 


,,YES - 


IGNORE 


03994 


14 


15143 


05556 


02180 




CM 


CHI+4,5556,8 , 


,,N0 DIAGNOSTICS 


04006 


47 


04038 


01200 


02183 




BNE 


*+32 , 


, ,N0 




04018 


15 


02290 


00000 


02187 




TDM 


USEDFS+27,0 






04030 


49 


04128 




02190 




B7 


CDCTL+12 














02193 












04038 


14 


15143 


04159 


02200 




CM 


CHI+4,4159,8, 


ARITHMETIC TRACE 


04050 


47 


04074 


01200 


02210 




BNE 


*+24, , , 


NO 





c 



23 



***** 


1620 FORTRAN II-D 


PHASE 


1-A 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


04062 


17 


04116 


62227 


02220 




BTM 


CDCTL, FACTRC 




04074 


14 


15143 


05349 


02230 




CM 


CHl+4,5349,8, LIST PRINTER 


04086 


47 


04140 


01200 


02240 




BNE 


CDCTL+24, , » NC 






17 


04116 


6-2228 


02250 




BTM 


C DCTL t L I ST 








O0005 




02260 




DC 


5,0 




041 16 


15 


04115 


0000-i 


02270 


CDCTL 


TOM 


*-l , 1 i 611 




04128 


17 


05774 


63706 


02280 




BTM 


PGHD2 , N2 1 




04140 


14 


15141 


000i4 


02290 




CM 


CHI+2,14, 10, 


TEST FOR ** 


041 52 


46 


05588 


01200 


02300 




BE 


PGHD, , , 


YES PAGE HEADING 


04164 


34 


00000 


00102 


02310 




RCTY 




,, NO, INVALID CTL. ST. 


04 1 76 


26 


15171 


05760 


02320 




TF 


CHI+32 , ALPHRM 




04188 


39 


15139 


00100 


02330 




WATY 


CHI 




04200 


34 


00000 


00102 


02340 




RCTY 






042 12 


39 


05899 


00 100 


02350 




WATY 


ERMFS1 , 


,, ERROR, INVALID CONTROL STATFMENT 


04224 


48 


00000 


00000 


02360 




H 






04236 


49 


03706 


00000 


02370 




B 


N21 , 


,, BR. TO READ NEXT STATEMENT 


04243 








02380 




DORG 


*-4 




04244 


32 


1514 2 


00000 


02390 


CALLP1 


SF 


CHI + 3 




04256 


32 


1 5 144 


00000 


02400 




SF 


CHI+5 




04268 


32 


15146 


00000 


02410 




SF 


CHI + 7 




04280 


32 


15148 


00000 


02420 




SF 


CHI+9 












02421 


*******************#*##*#**************************#****#*****#*# 


04292 


43 


04340 


02226 


02422 




BD 


*+48,IFTRC ,,, 


IF NEITHER TRACE SWITCH IS ON 


04304 


43 


04 340 


02227 


02424 




BD 


*+3 6 , FACTRC 




043 1 6 


15 


02226 


0000-1 


02426 






J ^1^9 ' ^ - ' ' ' 


TURN THEM BOTH ON 


0432 8 


15 


02227 


0000* 


02428 




TDM 


FACTRC , - 1 












02429 










04340 


43 


04388 


02424 


02430 




BD 


*+48 ,INDIV 


,, CARD INPUT 




26 


15299 


05760 


02440 




TF • 


CHI+160 , ALPHRM 


,, YES, MOVE INPUT RECORD 




31 


15838 


15138 


02450 




TR 


CHI5-1 ,CHI-1 


,, TO CHI5 


04376 


16 


15299 


oooeo 


02460 




TFM 


CHI+160 ,00 


,10, ERASE RECORD MARK 


04388 


26 


02298 


02250 


02470 




TF 


FP2 , FLNG 




044 00 


11 


02298 


0006-2 


02480 




AM 


FP2 ,02 


,10, CALCULATE F PLUS TWO 


04412 


26 


02240 


02252 


02490 




TF 


W ,KLNG 




04424 


24 


02298 


022 52 


02500 




C 


FP2 ,KLNG 




04436 


47 


04460 


01 100 


02510 




BNH 


*424 




04448 


26 


02240 


02298 


02520 




TF 


W ,FP2 


,, CALCULATE W, WORD SI7F FOR DISK 10 


04460 


26 


02296 


02240 


02530 




TF 


WW ,W 




04472 


16 


00565 


64495 


02540 




TFM 


IORT ,*+23 




044 84 


49 


005 32 


65851 


02550 




B 


IOPT ,SCSDAT 


,7, PUT SYSTEM COMMUNICATION SECTOR 


044 96 


49 


02454 


00000 


02560 




B 


PRSCAN 




04503 








02570 




DORG 


*-4 




04504 


26 


15153 


05760 


02580 


WASS 


TF 


CHI+14 , ALPHRM 




045 16 


17 


05774 


64528 


02590 




BTM 


PGHD2 ,*+12 


,, GO TO PRINT PSTSN 


04528 


14 


15151 


000? 2 


02600 




CM 


CHI+12 ,72 


,10, IS DEVICE CODE PAPER TAPF 


0454 


46 


04644 


01200 


02610 




BE 


WASS2 , 


,» YES 




14 


15151 


000?4 


02620 




CM 


CHI+12 ,74 


,10, NO, IS DEVICE CODE CARDS 




46 


04644 


01200 


02630 




BE 


WASS2 , 


, , YES 




34 


00000 


00102 


02640 




RCTY 






04588 


39 


15139 


00100 


02650 




WATY 


CHI 






34 


00000 


00102 


02660 




RCTY 




,, ERROR, INVALID OUTPUT DEVICE CODE 


046 12 


39 


06015 


00100 


02670 




WATY 


ERMES3 




04624 


48 


00000 


00000 


02680 




H 






04636 


49 


03706 


00000 


02690 




B 


N21 , 


,, BR. TO READ NEXT STATEMENT 


04643 








02700 




DORG 


*-4 




04644 


25 


02294 


15151 


02710 


WASS2 


TD 


PUSTSN , CHI+12 




04656 


49 


03706 


00000 


02720 




B 


N21 




***** 


1620 FORTRAN II-D 


PHASE 


1-A 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


04663 








02730 




DORG 


*-4 




04664 


15 


02367 


00001 


02740 


WAOBJP 


TDM 


JAY , 1 


,, DUP ACTION REQUIRED 


04676 


26 


15153 


05760 


02750 




TF 


CHI+14 , ALPHRM 




04688 


17 


05774 


64700 


02760 




BTM 


PGHD2,*+12,, 


GO TO PRINT POBJP 


04700 


14 


15151 


000+2 


02770 




CM 


CHI+12 ,72 


,10, IS DEVICE CODF PAPER TAPF 


04712 


47 


04744 


01200 


02780 




BNE 


* + 32 , 


, , NO 


04 724 


15 


06241 


0000-i 


02790 




TDM 


BUFSCS+23 , 1 


,11, YES 


04736 


49 


03706 


00000 


02800 




B 


N21 




04743 








02810 




DORG 


*-4 




04 744 


14 


15151 


000*4 


02820 




CM 


CHI+12 ,74 


,10, IS DEVICE CODE CARDS 




47 


04788 


01200 


02830 




BNE 


* + 32 , 


, , NO 


04768 


15 


06 241 


00006 


02840 




TDM 


BIIFSCS + 23,0 


,11, YES 


0478 


49 


03706 


00000 


02850 




B 


N21 




04787 








02860 




DORG 


*-4 




04788 


15 


06 241 


00006 


02 870 




TDM 


BUFSCS+23, 


, 11 


04800 


34 


00000 


00102 


02880 




RCT Y 






04812 


39 


15139 


00100 


02890 




WATY 


CHI 




04824 


34 


00000 


00102 


02900 




RCTY 




,, ERROR, INVALID OUTPUT DEVICE CODE 


04836 


39 


06015 


00100 


02910 




WATY 


ERMES3 




04 84 8 


48 


00000 


00000 


02920 




H 






04860 


49 


03706 


00000 


02930 




B 


N21 , 


,, BR. TO READ NEXT STATEMENT 


04 86 7 








02940 




DORG 


*-4 




04 86 8 


15 


06240 


00004 


02950 


WADK 


TDM 


BUFSCS+22 , 1 


,11, SET UP TO LOAD ORJECT PROG. ON OK. 


04880 


15 


02367 


00001 


02960 




TDM 


JAY , 1 


, , DUP ACTION REQUIRED 


04892 


26 


15171 


05760 


02970 




TF 


CHI+32 , ALPHRM 




04904 


17 


05774 


64916 


02980 




BTM 


PGHD2,*+12,, 


GO TO PRINT LDISK 


04916 


45 


04940 


45151 


02990 




BNR 


*+24 , CHI+12 


,7, ELIMINATE RECORD MARKS 


04 92 8 


16 


049 2* 


00060 


03000 




TFM 


*-l ,00 


,610 


0494 


11 


04927 


00062 


03010 




AM 


*-13 ,2 


, 10 


04952 


14 


04927 


45169 


03020 




CM 


*-25 ,CHI+30 




04 964 


47 


04916 


01100 


03030 




BNH 


*-48 






33 


15152 


00000 


03040 




CF 


CHI+13 




04988 


33 


15154 


00000 


030 50 




CF 


CHI+15 






33 


15156 


00000 


03060 




CF 


CHI+17 






33 


15158 


00000 


03070 




CF 


CHI+19 




05024 


33 


15160 


00000 


03080 




CF 


CHI+21 




05036 


26 


06253 


15161 


03090 




TF 


BUFSCS+35.CHI+22 




05048 


32 


15152 


00000 


03100 




SF 


CHI+13 




05060 


32 


15154 


00000 


03110 




SF 


CHI+15 




05072 


32 


15156 


00000 


03120 




SF 


CHI+17 




05084 


32 


15158 


00000 


03130 




SF 


CHI+19 




05 096 


32 


15160 


00000 


03140 




SF 


CHI+21 




051 08 


25 


06254 


15163 


03150 




TD 


BUFSCS+36,CHI+24 




05120 


25 


06255 


15165 


03160 




TD 


BUFSCS+37 ,CHI+26 




051 32 


25 


06256 


15167 


03170 




TD 


BUFSCS+38,CHI+28 




05144 


25 


06257 


15169 


03180 




TD 


BUFSCS+39 ,CHI+30 




05156 


32 


06254 


00000 


03190 




SF 


BUFSCS+36 




05168 


49 


03706 


00000 


03200 




B 


N21 




051 75 








03210 




DORG 


*-4 




051 76 


26 


15159 


05760 


03220 


FKTEST 


TF 


CHI+20 , ALPHRM 




05188 


17 


05774 


65200 


03230 




BTM 


PGHD2,*+12, , 


GO TO PRINT FANOK 


05200 


25 


05894 


15150 


03240 




TD 


FWORK-1 ,CHI+11 






25 


05895 


15152 


032 50 




TD 


FWORK , CHI+13 




05224 


33 


05895 


00000 


03260 




CF 


FWORK 




05236 


14 


05895 


000?7 


03270 




CM 


FWORK ,77 


,10, IS F NUMERIC 


05248 


47 


05520 


01200 


03280 




BNE 


N31 , 


,, NO, FRROR 


05260 


25 


05894 


15151 


03290 




TD 


FWORK-1 , CHI+12 


,, YES, LOAD F 



24 



» 



***** 


1620 FORTRAN II -D 


PHASE 


1-A 








NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS , 


AND REMARKS 


05272 


32 


05894 


00000 


03300 




SF 


FWORK-1 






05284 


25 


05895 


15153 


03310 




TD 


FWORK 


,CHI+14 




05296 


14 


05895 


00002 


03320 




CM 


FWORK 


,02 


,10, FIN RANGE 


05308 


47 


05520 


01300 


03330 




BL 


N31 


, 


,, NO, ERROR 


05320 


14 


05895 


oooes 


03340 




CM 


FWORK 


,28 


, 10 


05332 


46 


05520 


01100 


03350 




BH 


N31 




,, NO, ERROR 


05344 


26 


02250 


05895 


03360 




TF 


FLNG 


, FWORK 


,, YES, MOVE F TO FORTRAN COM. AREA 


05356 


25 


05896 


15154 


03370 




TD 


KWORK-1 


,CHI+15 




05368 


25 


05897 


15156 


03380 




TD 


KWORK 


,CHI + 17 




05380 


33 


05897 


00000 


03390 




CF 


KWORK 






05392 


14 


05897 


000?7 


03400 




CM 


KWORK 


,77 


,10, IS K NUMERIC 


05404 


47 


05520 


01200 


03410 




BNE 


N31 




,, NO, ERROR 


05416 


25 


05896 


151 55 


03420 




TD 


KWORK-1 


,CHI+16 


,, YES, LOAD K 


05428 


32 


05896 


00000 


03430 




SF 


KWORK-1 






05440 


25 


05897 


15157 


03440 




TD 


KWORK 


,CHI+18 




05452 


14 


05897 


00004 


03450 




CM 


KWORK 


,04 


,10, K IN RANGE 


05464 


4 7 


05520 


01300 


03460 




BL 


N31 




,, NO, ERROR 


05476 


14 


05897 


00040 


03470 




CM 


KWORK 


, 10 


, 10 


05488 


46 


05520 


1 100 


03480 




BH 


N31 




, , NO, ERROR 


05500 


26 


02252 


05897 


03490 




TF 


KLNG 


, KWORK 


,, YES, MOVE K TO FORTRAN COM. AREA 


05512 


49 


03706 


00000 


03500 




B 


N21 




,, BR. TO READ NEXT STATEMENT 


05519 








03510 




DORG 


*-4 






05520 


34 


00000 


00102 


03520 


N31 


RCTY 






,, ERROR, F OR K OUTSIDE RANGE 


05532 


39 


15139 


00100 


03530 




WAT Y 


CHI 






05544 


34 


00000 


00102 


03540 




RCTY 








05556 


39 


05959 


00100 


03550 




WATY 


ERMES2 






05568 


48 


00000 


00000 


03560 




H 








05580 


49 


03706 


00000 


03570 




B 


N21 




,, BR. TO READ NEXT STATEMENT 


05587 








03580 




DORG 


*-4 














03590 


** ROUTINE 


TO PRINT 


AND STORE 


THE PAGE HEADING 


05588 


26 


15303 


05760 


03600 


PGHD 


TF 


CHI+4+160 


, ALPHRM 












03610 


** THE CEAREO RECORD 


IS STILL 


IN CORE 


05600 


31 


02526 


15138 


03620 




TR 


N11,CHI-1 




LOAD HEADER 


05612 


16 


00565 


05635 


03630 




TFM 


I0RT,*+23 




PRINT HEADER 


05624 


49 


00532 


8-5751 


03640 




B 


I OPT , HEAD' 


-4,7 




05636 


16 


15303 


00000 


03650 




TFM 


CHI+4+160 


,0,10, 


CLEAR RM 


05648 


16 


05707 


02693 


03660 


REVSCN 


TFM 


*+59,Nll+4+163, , 


CLEAR RM 


05660 


12 


05 707 


00002 


03670 




SM 


*+47,2, 10 






056 72 


14 


05707 


02529 


03680 




CM 


*+35 ,Nll+3 




05684 


^1 


05720 


1 300 


03690 




BL 


PUT 






05696 


45 


05660 


00000 


03700 




BNR 


*-36,*-* 






05 708 


16 


05 70? 


00000 


03710 




TFM 


*-lt 0,610 






05720 


1 6 


00565 


05743 


03720 


PUT 


TFM 


IORT,*+23 




WRITE BACK TO DISK 


05 732 


49 


00520 


02517 


03730 




B 


IORBC ,PRTHD,7 




05 744 


49 


03706 




03740 




B7 


N21 






05755 




00005 


02527 


03750 


HEAD 


OSA 


Nll + 1 






05758 




00003 




03760 




DC 


3,183,, , 




DEE IN ER TO PRINT HEADING 


05760 




00002 




03770 


ALPHRM 


DC 


2 


,03 




05765 




00005 


45139 


03780 


PGHD3 


DSA 


CHI 






05 76 8 




00003 




03790 




DC 


3,183,, 




CONTROL RECORD PRINT DEFINER 


05773 




00005 




03800 




DC 


5,12345 






05774 


16 


00565 


05797 


03810 


PGHD2 


TFM 


IORT,*+23 




NORMAL CONTROL RECORD PRINT ROUTINE 


05 786 


49 


00532 


05761 


' 03820 




B 


IOPT ,PGHD3-4 ,7 , 




05798 


49 


05773 




03830 




B7 


PGHD2-1 , , 


6 




05805 




00002 




03840 


INOATA 


DSC 


2 


,22 




05811 




00005 


05813 


03850 




DSA 


IMDDA 






05812 




00001 




03860 




DC 


1 


,3 





c 



26 





1620 FORTRAN II-O 


PHASE 


1-A 




LOCTN 


OP P/L 





PG/LN 


LABEL 


MNEM 


05813 


00001 




03870 


INDDA 


DSC 


05818 


00005 




03880 




DC 


05821 


00003 




03890 




DC 


05826 


00005 




03900 




DS 


05827 


00001 




03910 




DC 


05 82 8 


00002 




03920 


DIMDAT 


DSC 


05834 


00005 


05836 


03930 




DSA 


05835 


00001 




03940 




DC 


05836 


00001 




03950 


DIMDDA 


DSC 


05841 


00005 




03960 




DC 


05844 


00003 




03970 




DC 


05849 


00005 


07122 


03980 




DSA 


05850 


00001 




03990 




DC 


05851 


00002 




04000 


SCSDAT 


DSC 


05857 


00005 


05859 


04010 




DSA 


05858 


00001 




04020 




DC 


05859 


00001 




04030 


SCSDDA 


DSC 


05864 


00005 




04040 




DC 


05867 


00003 




04050 




DC 


05872 


00005 


06218 


04060 




DSA 


05873 


00001 




04070 




DC 


05874 


00001 




04080 




DSC 


05879 


00005 




04090 




DC 


05875 


00000 




04100 


INIT 


DS 


05882 


00003 




04110 




DC 


05887 


00005 




04120 




DC 


05893 


00006 




04130 




DC 


05895 


00002 




04140 


FWORK 


DS 


05897 


00002 




04150 


KWORK 


DS 


05899 


00030 


X2 


04160 


ERMES1 


DAC 


05959 


00028 


X2 


04170 


ERMES2 


DAC 


06015 


00032 


X2 


04180 


ERMES3 


DAC 


06089 


00012 




04190 


12NINE 


DC 


06091 


00002 




04200 


INPUTD 


DC 


06096 


00005 


45139 


04210 




DSA 


06099 


00003 




04220 


N21 KEY 


DC 


06218 






04230 




DORG 


06218 


00100 




04240 


BUFSCS 


DSS 


06319 


00002 




04250 




DS 


06320 


00800 




04260 


BUFEOT 


DSS 


07121 


00002 




04270 




DS 


07122 


00100 




04280 


BUFDIM 


DSS 


07223 


00002 




04290 




DS 


99999 


00000 




04300 


DUMMY 


DS 


16000 






04310 




DORG 


16000 


00001 




04320 


PHADDA 


DSC 


16005 


00005 




04330 




DC 


16008 


00003 




04340 




DC 


16013 


00005 




04350 




DC 


16014 


00001 




04360 




DC 


16015 


00001 




04370 




DC 


16016 


00001 




04380 




DC 


16017 


00001 




04390 




DC 


16018 


00001 




04400 




DC 


16019 


00004 




04410 




DSC 


16023 


00001 




04420 


RECMKS 


DSC 


16024 


32 16014 


00000 


04430 


LDPHA 


SF 



NOVEMBER, 1966 

OPERANDS AND REMARKS 



1 ,0 

5 ,17330 

3 ,010 

5 

1 ,3 

2 ,20 
DIMDDA 

1 ,a 

1 ,0 

5 ,04800 

3 ,001 
BUFDIM 

1 ,S) 

2 ,20 
SCSDDA 

1 ,3 

1 ,0 

5 ,19663 

3 ,001 
BUFSCS 

1 ,a 

1 , 1 

5 ,00000 
,*-4 

3 ,999 

5 ,-99999 

6 ,000003 
2 

2 

30, ERROR, INVALID CONTROL RECORDS 
28,FRROR, FORK OUTSIDE RANGES 
32, ERROR, INVALID OUTPUT UNIT C0DE3 



12 ,999999999999 

2 ,00 
CHI 

3 ,003 



06218 
100 
2 

800 
2 

100 

2 

,99999 

16000 
1 ,0 

5,17290 

3,050 

5,02218 



1 ,3 

1 ,3 

i ,a 

i ,a 

l ,a 

4 ,0000 

1 ,0 



RECMKS-9 



PAGE 8 



Z7 





1620 FORTRAN II-D 


PHASE 


1-A 








LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


16036 


15 


02693 


00000 


04440 




TDM 


GRMK 








00001 




04450 




DGM 


* 






16 


16066 


67217 






T FM 


* + 18 


,BUFSCS+999 




26 


99999 


16023 


04470 




T F 


DUMMY 


» RECMKS t, 


16072 


12 


16066 


000H) 


04480 




SM 


*-6 


.10 ,10 


16084 


14 


16066 


&6217 


04490 




CM 


*-18 


,BUFSCS-1 




47 


16060 


01200 


04500 




BNE 


*-36 




16108 


34 


16000 


00701 








PHADOA 


701 


16120 


38 


16000 


00702 


04520 




WN 


PHADDA 


702 


16132 


36 


00012 


00500 


04530 




TRA 






16144 


49 


00012 














16024 








04540 




TCD 


LDPHA 




00000 








04550 




OENO 







NOVEMBER, 1966 



SET SYMBOL TABLE TO RECORD MARKS 



Z8 



1620 FORTRAN II-D 


PHASE 


1-B 












NOVEMBER , 


1966 


PAGE 


1 














S VMBOL 


TABLE 














ZERSYM 


06987 


XCLDGT 


14708 


VARFOR 


13744 


USEDFS 


02263 


URDATA 


09889 


TPARCT 


14698 


TBLFUL 


07 184 


SUBTST 


08348 


SUBPUT 


13350 


SUBFCT 


02293 


STOPEM 


14028 


STNOSW 


10105 


SML-OOP 


07068 


SINGST 


10100 


SETIND 


08324 


SETFRO 


14382 


SETDM5 


11384 


SETDM4 


11276 


SETDM3 


11016 


SETDM2 


10836 


SENSWC 


14301 


SAVSYM 


02243 


RTCALL 


13242 


RETURN 


10368 


PUT OUT 


09378 


PUSTSM 


02294 


PSCALF 


14490 


PRTCHI 


02526 


PRSCN1 


10544 


PRSCAN 


10512 


PROGST 


02257 


PHBDDA 


16008 


PHBDAT 


16000 


PAUSEN 


13860 


PARCMT 


02615 


0UTS12 


13262 


0UTSM3 


13980 


0UTSN2 


13908 


OUTSNE 


13844 


0UTSC1 


10512 


OUTSCE 


04 83 5 


NUMBER 


06150 


NOPARM 


14700 


NONAR I 


04144 


NONARA 


10224 


NOLIST 


03729 


NNARAA 


10512 


MULDEF 


02384 


MOVE IT 


11224 


MOVDIM 


11116 


MONCAL 


00796 


MODAFT 


09910 


MASKLK 


13152 


LUSTNO 


08744 


LNGPRT 


02798 


L ITERL 


07720 


L INKCT 


13131 


LINKCD 


12718 


LENGTH 


02248 


LEADBL 


03098 


IVALEN 


13179 


I OUTER 


13264 


IOUTEN 


13172 


IOLOOP 


14271 


INT0P1 


02385 


INITAL 


04098 


IFSCAN 


12274 


IFASFN 


14658 


IATYPE 


14389 


GOTOEM 


14120 


GENDIM 


11072 


FXORFL 


06453 


FXNUMB 


06358 


FUNCTA 


13728 


FREOSW 


14382 


F0RM99 


12370 


F0RM51 


13646 


FORMER 


12770 


FORMAT 


10392 


FOMAT 1 


12230 


FNTSW2 


07439 


FNTSW1 


10103 


FMTCST 


10031 


FLNUMB 


06462 


FCTEST 


08880 


FCTEMD 


02318 


E94620 


09428 


F94270 


09128 


E86440 


02430 


F84804 


13098 


F84710 


12926 


E84695 


12686 


E84560 


12542 


F84330 


12230 


F84240 


12126 


E841S0 


12054 


F84130 


12010 


E83230 


11026 


E37061 


07932 


EXITCT 


13123 


EX ITCD 


12662 


EXCESS 


06770 


ESN0P1 


03755 


FSNOPL 


02600 


ERR0R2 


09440 


ERMES1 


03767 


EQUIVN 


10786 


EOLOOP 


12306 


FNTLOG 


02248 


FN SI ON 


11565 


OUTRAN 


10101 


DOT F ST 


13171 


OOLOOP 


12058 


DKLOOP 


14167 


DKL 1ST 


13404 


DK IOFN 


13172 


DISKSW 


02383 


DIMNOT 


10545 


D IMERR 


07 5 00 


DEF INE 


14060 


DEFCH I 


02593 


DECODE 


03794 


DECODA 


04018 


C5 DATA 


09905 


CSTNH1 


05550 


CONTEN 


13794 


COMPUT 


14244 


COMMON 


10272 


COMMEN 


11576 


COM INA 


11924 


C0MER3 


12148 


C0MER2 


09496 


COMADD 


02262 


COL NAM 


04696 


CLDGT2 


14664 


CLDGT1 


14604 


CLASEN 


14678 


CKCTAR 


04098 


CKCMTU 


04876 


CHAN 1 2 


03630 


CDOFLO 


03784 


CDDATA 


09897 


CALLSW 


10111 


CALLP2 


02400 


CALLER 


12202 


CALLEN 


12058 


B IGPRT 


02 2 30 


BEG INA 


02638 


ASC281 


14422 


ASC27A 


14150 


ASCAN1 


12058 


ADXLIT 


08712 


ADVLOP 


08220 


ADVA R2 


08300 


ADVAR1 


08252 


ADSUBP 


08496 


ADSAVE 


08519 


AOL IT 1 


08656 


ADLIT 


08584 


ADSTN 


08808 


ADVAR 


08124 


AERR 


12214 


AFRR1 


09484 


AFTBL 


15035 


AL FAT 


10976 


ASCAN 


10440 


ASCER 


14026 


ASCI 


12658 


ASC1A 


12094 


ASCII 


14606 


ASC12 


13874 


ASC14 


14626 


ASC15 


13790 


ASC21 


13282 


ASC22 


12238 


ASC23 


12438 


ASC24 


12942 


ASC25 


12986 


ASC26 


13426 


ASC27 


14082 


ASC28 


14318 


ASC29 


14198 


ASC3 


12550 


ASC30 


14242 


ASC31 


14478 


ASC4 


12414 


ASC6 


12526 


ASC7 


12598 


A sea 


13754 


ASC9 


14586 


AVOID 


06066 


Al 


11923 


A2 


11935 


BA 


02718 


BEGIN 


02 62 6 


BGTR 


10773 


BLK1 


09724 


BLK1A 


09732 


BLK2 


09747 


BLK2A 


09755 


BLK3 


09770 


BLK3A 


09778 


BLK4 


09793 


BLK4A 


09801 


BLK5 


098 1 6 


BLK5A 


09824 


BLK6 


09839 


BLK6A 


09847 


BLK7 


09862 


BLK7A 


09870 


BLK8 


02461 


BLK9 


02497 


BLK9A 


02505 


BLOC 


02608 


Bl 


11927 


B2 


11939 


CALC 


11 176 


CALL 


10344 


CALLA 


12318 


CALLB 


12338 


CALL1 


12466 


CALL2 


12486 


CARD 


15036 


CCNO 


02603 


CGTO 


10108 


CHI 


15139 


CHI5 


15839 


CKCN1 


04962 


CKCN2 


05090 


CKCN3 


05286 


CKCN4 


05386 


CK END 


02612 


CKRM 


02938 


CLDGT 


14548 


CMPAR 


06638 


COMA 


11744 


COMAB 


11812 


COMC 


12024 


COME 


11968 


COMER 


09496 


COMIN 


11876 


COMM 


12068 


COMST 


02382 


COMSW 


10112 


COMT 


11772 


CS 


05882 


CSORN 


05738 


CSPVA 


03634 


CSTMO 


05446 


CTION 


13785 


CI 


11931 


C2 


1 1943 


DEFCT 


14477 


DIM 


10248 


DIMEN 


10512 


D IMMO 


10677 


DI MSW 


10106 


DjMTP 


1 1185 


I) IM1 


10596 


DIM2 


11484 


DIM3 


11552 


DKA 


13708 


DKB 


13788 


DKB 1 


13968 


DKC 


14000 


OKO 


14108 


DKD1 


14248 


DK E 


14316 


DKER 


13752 


DKF 


14396 


DKG 


14544 


DKIO 


10488 


DKI01 


13264 


DK 102 


13332 


DKL 


13664 


DK PUT 


13524 


DKSW1 


-14304 


DKSW2 


14306 


DMVAR 


08124 


no 


12190 


DO A 


12518 


DOB 


12670 


DOC 


12294 


DOCK 


12390 


D0C1 


12446 


DOE 


12926 


DOEE 


13110 


DOO 


10416 


Dl 


11951 


D2 


11963 


D3 


11975 


D4 


11987 


FBASE 


12365 


FBRAN 


13426 


END 


09564 


ENDCT 


10037 


FNDTR 


09508 


E OK 


13554 


EOBR 


1165R 


E Or 


10858 


FOUSW 


10110 


E01 


10930 


E021 


11146 


E022 


12274 


E023 


11514 


EG24 


11382 


E04 


11770 


E07 


1 1826 


E RE XT 


03694 


ERMES 


10003 


ERR 


03737 


ERRET 


00602 


ERROR 


09384 


FRR01 


04300 


FRR02 


13468 


ERR09 


08004 


ERR 44 


14490 


ERR60 


14490 


ERSW 


05674 


ER1 


348 6 


FSNO 


02724 


FSN01 


03743 


ETYPF 


13034 


FXIT 


09262 


FCMA 


13782 


FCTST 


07980 


FLIP 


02454 


FLIP1 


17340 


FL IP2 


03130 


FLIST 


14706 


FLNG 


02250 


FLOP 


02466 


FL0P1 


17207 


FMON 


02324 


FMSW 


10104 


FNTSW 


10102 


FOMAT 


12166 


FORM 


03510 


FORMX 


14142 


FORM 1 


12570 


F0RM2 


12910 


F0RM3 


13082 


F0RM4 


14110 


F0RM5 


13602 


F0RM7 


13850 


FORMS 


13982 


FP2 


02298 


FTYPE 


12990 


FXLIT 


08060 


GOTO 


1032 


HERE 


12762 


HOLL 


14210 


HOLLI 


14270 


I 


11955 


IF 


10296 


I FSW 


10107 


I El 


132 84 


INDIV 


02424 


IND1 


11519 


IND2 


11538 


INOUT 


13640 


INSW 


02611 


IMTOP 


09269 


IOA 


13952 


IOB 


14104 


IOCAL 


00716 


IOD 


14212 


I OF 


14372 


IOF 


14452 


IOG 


14636 


IOGT 


00566 


IOLER 


13996 


IOPT 


00532 


IORBC 


00520 


IORT 


00565 


IOSK 


00554 


IOSW 


10113 


IOUT 


102 00 


I0UT1 


13556 


I0UT2 


13308 


I0UT3 


13388 


I0UT4 


13576 


I0UT5 


13448 


IOZ 


13872 


J 


11967 


JAY 


0236 7 


JOE 


07204 


K 


11979 


KLNG 


02252 


LDPHB 


16024 


L FAD Z 


033 66 


LIST 


0222K 



Z9 



***** i 6 20 FORTRAN I I -D PHASE 1-B 



NOVEMBER, 1966 



PAGE 2 



LIST1 03662 
LUXIT 07556 
MOD AD 07919 
NONUM 03374 
Nl 02233 
ONE 03350 
PA1 10934 
PR 12651 
RE AD 1 02878 
SALT 05942 
SCN1 03828 
SC3 10928 
SMADD 07242 
STBL 02377 
SUBP2 13518 
TBCNT 02429 
TONY 11508 
W 02240 



LITF 07768 
LI 04240 
MODE 06451 
NUMB 06230 
N2 02238 
ORDCT 14673 
PA2 10782 
PRNT1 04042 
RECLG 02243 
SAVE 04036 
SCN2 03852 
SC4 10764 
SMCNT 07295 
STC 05677 
SUBSW 10114 
TBS T 04692 
TPCST 13639 
WIDCK 14464 



LKCD1 12918 
L2 04312 
MON 12161 
NUMB1 06302 
OFLO 03318 
OUTAR 13138 
PCNT 14093 
PRNT2 04094 
REF 09035 
SAVE1 11621 
SCN3 03888 
SC5 10824 
SMLNG 05965 
STNER 03410 
SUBTR 08484 
TEMP 02620 
TRIND 02609 
WIDTH 14453 



SYMBOL TABLE 

LKCD3 12962 
L4 11796 
MV1 11604 
NUMB2 06606 
0FL01 03481 
OUTSC 10464 
PGNUM 02222 
PRNT4 03130 
RETR 02490 
SAVE2 12937 
SCN4 03956 
SC9 11164. 
SMTLU 06988 
STSN 05675 
SV3 04179 
TEMP5 02625 
TWO 03362 
WW 02296 



LKCD4 13006 
L5 11832 
MV2 11692 
NUMB3 06510 
0FL02 03131 
OUTSN 13660 
PI 11038 
PTYPE 12866 
RETRN 13166 
SAVE 3 11849 
SCI 10884 
SD 10788 
SPERR 09278 
SUBPA 13194 
SWSET 14682 
TEND 02303 
URNCT 13279 
X 08172 



LSTAD 02308 
L6 11876 
MV3 11740 
NUMB5 06338 
0FL03 03470 
OUTSW 07068 
PLUS 06866 
PUT 09084 
ROUTN 13715 
SCALE 14512 
SC2 06138 
SETDM 10680 
SPGS 09362 
SUBPF 13278 
SYM 10081 
TENZ 10093 
VARBR 06546 
ZER13 10097 



LSTEN 07059 
MASK 11989 
NOIND 02610 
NXLOC 02372 
OMM 10109 
PAUS 13916 
PLUSS 10033 
P2PTR 02313 
RTSW 05673 
SCHI 06049 
SC22 10620 
SLASH 12674 
STAFT 04431 
SUBP1 13314 
TBCM 04538 
TINUE 13851 
VARSW 07615 



30 



1620 FORTRAN I I-D 



NOVFMBER, 1966 



LUCTN 


OP 


P/L 





PG/LN 


LAB FL 


MNEM 


OPERANDS AND RFMARKS 












00010 


****** 


1620 FORTRAN I I-D PHASF 


1-B 


02218 








00020 




DORG 


02218 




02222 




00005 




00030 




DS 


5 




02222 




00003 




00040 


PGNUM 


DS 


3,* 




02223 




00001 




00050 




DS 


1 




02 22 5 




0000 2 




00060 




DS 


2 




02231 




00006 




00070 




DS 


6 




02233 




00002 




00080 


Ml 


DS 


2 




02238 




00005 




00090 


N2 


DS 


5 




02240 




00002 




00100 


W 


DS 


2 




02243 




00003 




00110 


RECLG 


DS 


3 




02243 




00012 




00120 


SAVSYM 


DS 


12 , RECLG 




02248 




00005 




00130 


LENGTH 


DS 


5 




02250 




0000 2 




00140 


FLNG 


DS 


2 




02252 




00002 




00150 


KLNG 


DS 


2 




02257 




00005 




00160 


PRO GST 


DS 


5 




02262 




00005 




00170 


COMADD 


DS 


5 




02263 




00030 




00180 


USEDFS 


DSS 


30 




02293 




00001 




00190 


SUBFCT 


DS 


1 




02294 




00001 




00200 


PUSTSN 


DS 


1 




022 96 




00002 




00210 


WW 


DS 


2 




02298 




00002 




00220 


FP2 


DS 


2 




02303 




00005 




00230 


TEND 


DS 


5 




02308 




00005 




00240 


LSTAD 


DS 


5 




02313 




00005 




00250 


P2PTR 


DS 


5 




02318 




00005 




00260 


FCTEMD 


DS 


5 




02323 




00005 




00270 




DS 


5 




02324 


26 


02366 


02 32 3 


00280 


FMON 


TF 


*+42,FM0M-l,, SETUP 


ROUTINE ENTRY 


02336 


16 


00565 


62359 


00 290 




TFM 


IORT ,*+23 




02348 


49 


00566 


eoooo 


00300 




B 


IOGT , ,7 




02360 


49 


00000 


00000 


00310 




B 


,,, GO TO 


EXECUTE CALLED 


02367 








00320 




DORG 


*-4 




02367 




00001 




00330 


JAY 


DS 


1 




02372 




00005 




00340 


NXLOC 


DS 


5 




02377 




00005 




00350 


STBL 


DS 


5 




02382 




00005 




00360 


COMST 


DS 


5 




02383 




00001 




00370 


DISKSW 


DC 


1,0 




02384 




00001 




00380 


MULDEF 


DC 


ltO 




02385 




00001 




00390 


INT0P1 


DSC 


1,0 




02390 




00005 




00400 




DC 


5,00600 




02393 




00003 




00410 




DC 


3,001 




02398 




00005 


1-50 36 


00420 




DSA 


CARD 




02399 




00001 




00430 




DC 


i,a 




02400 


16 


02359 


62461 


00440 


CALLP2 


TFM 


FM0N+35,BLK8 




02412 


17 


02324 


62400 


00450 




BTM 


FMON ,CALLP2 




02424 




00001 




00460 


INDIV 


DS 


1 












00470 


* 


INDIV = FOR CARDS, 1 FOR 


TYPEWRITER, 










00480 


* 




FLAGGED 3 FOR PAPER 


TAPE 


02429 




00005 




00490 


TBCNT 


DS 


5 




02248 




00000 




00500 


E NT LOG 


DS 


, RECLG+5 




15035 




00000 




00510 


AFTBL 


DS 


,15035 




15139 




00430 


X2 


00520 


CHI 


DAS 


430,15139 




15839 




00000 




00530 


CHI5 


DS 


,CHI+700 




15036 




00000 




00540 


CARD 


DS 


,CHI-103 




00716 




00000 




00550 


IOCAL 


DS 


,716 




00566 




00000 




00560 


IOGT 


DS 


,566 




00520 




00000 




00570 


IORBC 


DS 


,520 







1620 FORTRAN II-D 


PHASE 


1-B 






NOVEMBER, 1966 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


00532 




00000 




00580 


IOPT 


OS 


, 532 




00554 




00000 




00590 


IOSK 


OS 


,554 




00602 




00000 




00600 


ERRET 


DS 


,602 




00565 




00000 




00610 


IORT 


OS 


,565 




02228 




00000 




00620 


LIST 


DS 


,2228 




02230 




00000 




00630 


B IGPRT 


DS 


,2230 




00796 




00000 




00640 


MONCAL 


DS 


,796 




02430 


16 


02359 


99862 


00650 


E 86440 


TFM 


FMON+35 , BLK7 




02442 


17 


02324 


62430 


00660 




BTM 


FMON ,E86440 




02461 




00000 




00670 


BLK8 


DS 


,E 86440+31 




17340 




00000 




00680 


FLIP1 


DS 


,17340,,, 


FLIP DISK ADDRESS 


17207 




00000 




00690 


FL0P1 


DS 


,17200+7, ,, 


FLOP (RESTORE DISK ADDRESS) 


031 30 




00000 




00700 


FL IP2 


DS 


.E86440+700,,, 


FLIP CORE ADDRESS 


02454 


16 


025 10 


1-7340 


00710 


FL IP 


TFM 


BLK9A+5 , FL IP1 




02466 


16 


00565 


6*2489 


00720 


FLOP 


TFM 


IORT,*+23», 


BRING IN GENERAL PR I NT ROUTINE 


02478 


49 


00566 


0-2497 


00730 




B 


I0GT,BLK9,7 




02490 


49 


00000 




00740 


RETR 


B7 


*-* 












00750 


** TO 


FLIP 


TFM RETRN-5, PRINT 


ROUTINE— tFM RETRN, RETURN ADDRE 










00760 


** TO 


RESTORE TFM BLK9A+5 .PARTI AL DISK ADDR ESS-TF R FTRN-5, RET 


02497 




00002 




00770 


BLK9 


DSC 


2,22 




02503 




00005 


6-2505 


00780 




DSA 


BLK9A 




02504 




00001 




00790 




DC 


i,a 




02 505 




00001 




00800 


BLK9A 


DSC 


1,0 




025 10 




00005 


1-7340 


00810 




DSA 


FLIP1 




02513 




00003 




00820 




DC 


3,011 




02518 




00005 


63130 


00830 




DSA 


FLIP2 




025 19 




00001 




00840 




DC 


1,3) 












00850 


** PRINT CHI OR CHI5 












00R60 


** CALL TO 


PRINT IS TFM DEFCHI , CHI (OR CHI5I, BTM PRTCHI , #+1 


02 52 4 




00005 




00870 




DC 


5,12345 




02 526 


16 


00565 


62549 


00880 


PRTCHI 


TFM 


I0RT,*+23 




02538 


49 


00532 


62589 


00890 




B 


I0PT,DEFCHI-4,7 




02550 


47 


02582 


03400 


00900 




BNI 


*+32, 03400 




02562 


16 


02496 


63784 


00910 




TFM 


RETR +6.CD0FL0 




02574 


49 


02454 




00920 




B7 


FLIP ,,, 


CALL TO OVERFLOW ROUTINE 


02582 


49 


0252-5 




00930 




B7 


PRTCHI-1, ,6, 


RETURN TO PRINT CALLER 


02593 




00005 


45139 


00940 


DEFCHI 


DSA 


CHI 




02596 




00003 




00950 




DC 


3, iRa, • , 


CHI PRINT DEFINER 


02600 




00004 




00960 


ESNOPL 


DC 


4,0 




02601 




0000 1 




00970 




DC 


i,a 




02603 




00002 




00980 


CCNO 


DC 


2,0 




02608 




00005 




00990 


BLOC 


DC 


5,0 




02609 




0000 1 




01000 


TRINO 


DSC 


1,0 




026 10 




00001 




01010 


NOIND 


DSC 


1,0 




02611 




0000 1 




01020 


INSW 


DSC 


1,0 




02612 




00001 




01030 


CK END 


DSC 


1,0 




02615 




00003 




01040 


PARCNT 


DC 


3,0 




02620 




00005 




01050 


TEMP 


DC 


5,0 




0262 5 




00005 




01060 


TEMP5 


DC 


5,0 






17 


09084 


0613-2 


01070 


BEGIN 


BTM 


PUT, 0132, 811, 


SEMI COLON 


02638 


16 


02615 


00600 


01080 


BEGINA 


TFM 


PARCNT, 0,9 




02650 


43 


09910 


10100 






BD 


MODAFT , S INGST 




02662 


26 


10114 


10099 


01100 




TF 


SUBSW , ZER 13+2 




02674 


43 


02718 


02424 


OHIO 




BD 


BA,INDIV 




02686 


15 


15983 


00000 


01120 




TDM 


CHI5+144 




02697 




00001 




01130 




DC 


i ,a,* 





32 









1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER, 1966 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND RFMARKS 


02698 


31 


15138 


15838 


01140 




TR 


CHI-1.CHI5-1 


02710 


49 


02902 


00000 


01150 




B 


READ1+24 


02717 








01160 




DORG 


*-4 


02718 


34 


00000 


00102 


01170 


BA 


RCTY 




02 724 




00000 




01180 


ESNO 


DS 


,*-5 


02725 




00001 




01190 




DC 


l,3,*-4 


02730 


16 


00565 


62 753 


01200 




TFM 


I0RT,*+23 


02 742 


49 


00566 


69885 


01210 




B 


I0GT,URDATA-4,7, READ STATEMENTS FROM TYPEWRITFR 


02754 


46 


02718 


00400 


01220 




BC4 


*-36,,, ALLOWS GOOF SWITCH 










01230 


** CALL P/T 


TYPE PRINT ROUTINE FROM DISK-RFTURN IS TO LNGPRT 


02766 


44 


02798 


02228 


01240 




BNF 


LNGPRT, LIST,, TOTAL LISTING 


02778 


16 


02496 


63828 


01250 




TFM 


RETR +6,SCN1 


02790 


49 


02454 




01260 




B7 


FL IP 


02798 


14 


15139 


00043 


01270 


LNGPRT 


CM 


CHI, 43, 10, TEST FOR COMMENT 


02810 


47 


03098 


01200 


01280 




BNE 


LEADBL 


02822 


14 


15141 


00060 


01290 




CM 


CHI+2,0, 10, 


02834 


47 


03098 


01200 


01300 




BNE 


LEADBL 


02846 


14 


15143 


00060 


01310 




CM 


CHI+4,0, 10, 


02858 


46 


02638 


01200 


01320 




BE 


BEGINA 


02870 


49 


03098 


00000 


01330 




B 


LEADBL 


02878 








01340 




DORG 


*-3 


02878 


16 


00565 


62901 


01350 


READ1 


TFM 


I0RT,*+23 


02890 


49 


00566 


39893 


01360 




8 


I0GT,CDDATA-4,7, READ FIRST CARD 


02902 


16 


02937 


45283 


01370 




TFM 


*+35,CHI +144 


02914 


12 


02937 


00062 


01380 




SM 


*+23,2,10 


02926 


26 


02612 


00000 


01390 




TF 


CKEND 


02 93 8 


43 


02994 


02612 


01400 


CKRM 


BD 


*+56,CKEND,, SCAN BACK TO PLACE RECORD MARK 


02950 


43 


02994 


02611 


01410 




BD 


*+44,CKEND-l 


02962 


14 


02937 


1-5139 


01420 




CM 


CKRM-1, CHI 


02974 


46 


02914 


01100 


01430 




BH 


CKRM-24,,, CHECK FOR BLANK CARD 


02986 


49 


02878 


00000 


01440 




B 


READ1,,, 


02 994 








01450 




DORG 


*-3 


02 994 


11 


02937 


30002 


01460 




AM 


CKRM-1 ,2 


03006 


15 


0293-7 


00000 


01470 




TDM 


CKRM-1 ,,6 


03017 




00001 




01480 




DC 


i,a,* 


03018 


44 


03062 


02228 


01490 




BNF 


*+44,LIST,, TOTAL LISTING 










01500 


** 


PRINT CARDS FROM CHI 


03030 


16 


02593 


1-5139 


01510 




TFM 


DEFCHI, CHI,, MODIFY PRINT DEFINER 


03042 


16 


02525 


63062 


01520 




TFM 


PRTCHI-1, *+20 


03054 


49 


02526 




01530 




B7 


PRTCHI 


03062 


14 


15139 


00043 


01540 




CM 


CHI, 43,10" 


03074 


46 


02878 


01200 


01550 




BE 


READ1 


03086 


15 


15148 


00006 


01560 




TDM 


CHI+9,0, 11 


03098 


43 


03130 


15139 


01570 


LEADBL 


BD 


*+32,CHI 


03110 


31 


15138 


15140 


01580 




TR 


CHI-1 ,CHI+1 


03122 


49 


03098 


00000 


01590 




B 


*-24 


03130 








01600 




DORG 


*-3 


03130 


11 


02600 


00061 


01610 




AM 


ESNOPL, 1,10 


03142 


14 


15139 


00069 


01620 




CM 


CHI ,69, 10 


03164 


47 


03622 


01100 


01630 




BNH 


CSPVA-12,,, BRANCH IF NO STATEMENT NUMBER 


03166 


32 


07068 


00000 


01640 




SF 


OUTSW 


03178 


17 


05446 


63190 


01650 




BTM 


CSTN0,*+12,, OUTPUT STATEMENT NUMBER 


03190 


17 


09084 


06134 


01660 




BTM 


PUT, 134, 8, COLON 


03202 


26 


02724 


10081 


01670 




TF 


ESNO,SYM 


03214 


16 


02600 


06000 


01680 




TFM 


ESNOPL ,0,8 


03226 


15 


02610 


00004 


01690 




TDM 


NOIND, 1,11 


03238 


11 


07242 


0006 5 


01700 




AM 


SMADD ,5,10 



33 



***** 


1620 FORTRAN I I-D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


03250 


43 


03410 


07245 


01710 




BD 


STNER, SMADD, 11, 


TEST IF STATEMENT NO. WAS USED BEFORE 


03262 


15 


07245 


00001 


01720 




TDM 


SMADD, 1,6, 


SET INDICATOR THAT STA.NO. APPEARED 


03274 


12 


07242 


00062 


01730 




SM 


SMADD, 2, 10 




03286 


43 


03306 


07242 


01740 




BD 


*+20, SMADD, 11 




03298 


49 


03342 


00000 


01750 




B 


*+44 




03306 








01760 




DORG 


*-3 




03306 


17 


09084 


06140 


01770 




BTM 


PUT, 140,8, 


DUMMY 


03318 


15 


0724-2 


00000 


01780 




TDM 


SMADD, 0,6 




03330 


15 


10101 


00001 


01790 




TDM 


DOTRAN, 1 




03342 


11 


07242 


00061 


01800 




AM 


SMADD, 1, 10 




03354 


43 


03510 


0724? 


01810 




BD 


FORM, SMADD, 11 




03366 


14 


15 139 


00060 


01820 


LEAD2 


CM 


CHI ,0,10, 




03378 


47 


03430 


01200 


01830 




BNE 


STNER+20 ' 




03390 


3 1 


15138 


1 51 40 


01840 




TR 


CHI-1 ,CHI+1 




03402 


49 


03366 


00000 


01850 




B 


*-36 




03410 








01860 




DORG 


*-3 




03410 


16 


09373 


00676 


01870 


STNER 


TFM 


SPGS+11,076 ,9 




03422 


49 


09290 


00000 


01880 




B 


SPERR + 12 , , , 


STATEMENT NO. PREVIOUSLY USED 


03430 








01890 




DORG 


*-3 




03430 


14 


15139 


000 46 


01900 




CM 


CHI ,46, 10 




03442 


47 


03634 


01200 


01910 




BNE 


CSPVA 




03454 


1 7 


04696 


00066 


01920 




BTM 


COL NAM, 6, 10 




03466 


24 


1008 1 


10031 


01930 




C 


SYM , FMTCST 




03478 


46 


03634 


01400 


01940 




BV 


CSPVA 




03490 


46 


10392 


01200 


01950 




BE 


FORMAT 




03502 


49 


03634 


00000 


01960 




B 


CSPVA 




03510 








1970 




DORG 


*-3 




03510 


14 


15139 


00060 


01980 


FORM 


CM 


CHI ,00, 10, 


SHIFT OFF BLANKS 


03522 


47 


03554 


01200 


1990 




BNE 


* + 32 




03534 


31 


15138 


15140 


02000 




TR 


CHI-1 ,CHI+1 




03546 


49 


03510 


00000 


02010 




B 


*-36 




03554 








02020 




DORG 


*-3 




03554 


1 7 


04696 


00066 


02030 




BTM 


C0LMAM,6, 10 




03566 


24 


1008 1 


10031 


02040 




C 


SYM, FMTCST,, 


MUST BE FORMANT STATEMENT 


03578 


46 


03602 


01400 


02050 




BV 


* + 24 




03590 


46 


10392 


01200 


02060 




BE 


FORMAT 




03602 


16 


09373 


00277 


02070 




TFM 


SPGS+1 1 ,277 ,9 




03614 


4 9 


09290 


00000 


02080 




B 


SPERR+12 , , , 


ELSE ERROR 27 


03622 








02090 




DORG 


*-3 




03622 


1 5 


02610 


00000 


02100 




TDM 


NOIND, 




03634 


16 


08 183 


1-5139 


02110 


CSPVA 


TFM 


X+ll ,CHI , 




03646 


1 1 


08 183 


00062 


02120 




AM 


X+ll ,2, 10 




03658 


45 


03702 


08183 


02130 




BNR 


*+44 , X+l 1 , 11 




03670 


16 


08 183 


000 37 


02140 




TFM 


X+ll ,37,610 




03682 


3 1 


08 183 


06066 


02150 




TR 


X+ll , AVOID, 


6, . AVOID = FLAG3,7,FLAG0,RECMARK 


03694 


49 


03794 


00000 


02160 




B 


DECODE 




03702 








02170 




DORG 


*-3 




03702 


14 


08 183 


00060 


02180 




CM 


X + ll ,0,610 




03714 


4 7 


03646 


01200 


02190 




BNE 


CS PVA+ 12 




03726 


26 


03780 


08183 


02200 




TF 


*+54,X+ll 




03738 








02210 




TF 


*+47,*+42 




03750 


11 


03785 


00061 


02220 




AM 


* + 35 ,1 , 10 




03762 


12 


03780 


oooei 


02230 




SM 


*+18,l,10 




03774 


31 


00000 


00000 


02240 




TR 




ELIMINATE BLANKS 


03786 


49 


03658 


00000 


02250 




B 


CSPVA+24 




03 7 94 








02260 




DORG 


*-3 




03 794 


16 


03829 


*5137 


02270 


DECODE 


TFM 


*+35,CHI-2 





c 



34 



1620 FORTRAN 1 1 -D PHASE 1-B 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


03806 


11 


03829 


00062 


02280 




AM 


*+23,2, 10 


03818 


45 


03838 


00000 


02290 




BNR 


* + 20 


03830 


49 


03910 


00000 


02300 




B 


* + 80 


03838 








02310 




DORG 


*-3 


03838 


14 


03829 


00040 


02320 




CM 


DECODE+35,40,610 


03850 


46 


03806 


01100 


02330 




BH 


DECODE+12 


03862 


14 


03829 


000*3 


02340 




CM 


DECODE+35,33,610 


03874 


47 


03930 


01200 


02350 




BNE 


* + 56 


03886 


14 


02615 


00060 


02360 




CM 


PARCNT ,0, 10 


03898 


46 


04018 


01200 


02370 




BE 


DECODA 


03910 


16 


02615 


00600 


02380 




TFM 


PARCNT, 0,9 


03922 


49 


04144 


00000 


02390 




B 


NONARI 


03930 








02400 




DORG 


*-3 


03930 


14 


03829 


0002-4 


02410 




CM 


DECODE+35,24,610 


03942 


47 


03974 


01200 


02420 




BNE 


* + 32 


03954 


11 


02615 


oooei 


02430 




AM 


PARCNT, 1,10 


03966 


49 


038O6 


00000 


02440 




B 


DECODE+12 


03974 








02450 




DORG 


*-3 


03974 


14 


03829 


00064 


02460 




CM 


DFCODE + 35,4,610 


03986 


47 


03806 


01200 


02470 




BNE 


DECODE+12 


03998 


12 


02615 


00061 


02480 




SM 


PARCNT ,1,10 


04010 


49 


03806 


00000 


02490 




B 


DECODE+12 


04018 








02500 




DORG 


*-3 


04018 


11 


03829 


00062 


02510 


DECODA 


AM 


DECODE+35, 2, 10 


04030 


45 


04050 


03829 


02520 




BNR 


*+20,DEC0DE+35, 11 


04042 


49 


04098 


00000 


02530 




B 


CKCTAR 


04050 








02540 




DORG 


*-3 


04050 


14 


03829 


0002-3 


02550 




CM 


DECODE+35, 23,610 


04062 


46 


10416 


01200 


02560 




BE 


DOO 


04074 


14 


03829 


00024 


02570 




CM 


DECODE+35,24,610 


04086 


47 


04018 


01200 


02580 




BNE 


DECODA 


04098 


43 


10440 


02424 


02590 


CKCTAR 


BD 


ASCAN.INDIV 


041 10 


17 


04876 


00060 


02600 




BTM 


CKCNTU.O, 10 


04122 


49 


10440 


00000 


02610 




B 


ASCAM 


04130 








02620 




DORG 


*-3 


04143 




00014 




02630 




OS 


14,,, NONARI MUST BE AT L FAST -04144- 


04144 


16 


04246 


64692 


02640 


NONARI 


TFM 


L1+6,TBST 


04156 


33 


15140 


00000 


02650 




CF 


CHI + 1 


04168 


33 


15142 


00000 


02660 




CF 


CHI + 3 










02662 


********************* *****************************************#*;;(:;: 


04179 




00000 




02664 


SV3 


DS 


,* 


04180 


26 


04179 


15142 


02666 




TF 


SV3, CHI+3 ,,,SAVF FIRST 2 AND 1/2 CHARACTERS 










02668 








04192 


24 


15143 


10041 


02670 




C 


CHI+4,ENDCT+4 


042 04 


46 


09564 


01200 


02680 




BE 


END 


04216 


43 


04240 


02424 


02690 




BD 


*+24, INDIV 


04228 


17 


04876 


00060 


02700 




BTM 


CKCNTU ,0,10 


04240 


24 


04692 


15143 


02710 


LI 


C 


TBST.CHI+4 


04252 


46 


04312 


01200 


02720 




BE 


L2 


04264 


12 


04246 


000+1 


02730 




SM 


Ll + 6,1 1, 10 


042 76 


45 


04240 


04246 


02740 




BNR 


L1,L1+6,11 


04288 


31 


15138 


15144 


02750 




TR 


CHI-1, CHI+5 


04300 


17 


09384 


00671 


02760 


ERR01 


BTM 


ERROR, 071, 9 


04312 


14 


04246 


64538 


02770 


L2 


CM 


L1+6,TBCM 


04324 


47 


04396 


01100 


02780 




BNH 


* + 72 


04336 


15 


05675 


00000 


02790 




TDM 


STSN,0,, SET SINGLE STATEMENT SWITCH OFF 


04348 


44 


04396 


02609 


02800 




BNF 


*+48,TRIND 



35 



***** 


1620 FORTRAN II-O 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


04360 


15 


02609 


00000 


02810 




TOM 


TRIND.O 




04372 


43 


04396 


02610 


02820 




BD 


*+24,N0IND 




04384 


17 


09440 


00*72 


02830 




BTM 


ERROR2,572,9, 


MISSING STATEMENT NUMBER AFTER TRANSFER 


04396 


12 


04246 


00096 


02840 




SM 


Ll+6,6, 10 




04408 


3 1 


15138 


15144 


02850 




TR 


CHI-1 ,CHI+5 




04420 


32 


04246 


1-5040 


02860 




SF 


L1+6.AFTBL+5, 


7 


04431 




00005 




02870 


STAFT 


DS 


5 ,* 




04432 


49 


04 24* 


00000 


02880 




B 


Ll+6t,6 




04439 








02890 




DORG 


*-4 




04439 




0000 1 




02900 




DC 


i,a 




04444 




00005 


40224 


02910 




DS A 


NONARA 




04450 




00006 




02920 




DC 


6,466455,, 


FUNCTION 


04455 




00005 


1-0224 


02930 




DSA 


NONARA 




04461 




00006 




02940 




DC 


6,626442 , , 


SUBROUTINE 


04466 




00005 


40224 


02950 




DSA 


NONARA 




044 72 




00006 




02960 




DC 


6,444546,, 


DEFINE 


04477 




00005 


1-0224 


02970 




DSA 


NONARA 




04483 




00006 




02980 




DC 


6,455864, , 


EQUIVALENCE 


04488 




00005 


40272 


02990 




DSA 


COMMON 




04494 




00006 




03000 




DC 


6,435654,, 


COMMON 


04499 




00005 


1-0248 


03010 




DSA 


DIM 




04505 




00006 




03020 




DC 


6,444954, , 


DIMENSION 










03021 


♦♦♦♦♦♦is************************************************************** 


045 10 




00005 


8-2626 


03022 




DSA 


BEGIN 




04516 




00006 




03024 




DC 


6,455544,, 


END TRACE 


04521 




00005 


40224 


03026 




DSA 


NONARA 




04527 




00006 




03028 




DC 


6,424547, , 


BEGIN TRACE 










03029 










04532 




00005 


40368 


03030 




DSA 


RETURN 




04538 




00006 




03040 


TBCM 


DC 


6,594563,, 


RETURN 


04543 




00005 


i-0224 


03050 




DSA 


NONARA 




04 549 




00006 




03060 




DC 


6,626356, , 


STOP 


04554 




00005 


40224 


03070 






NONARA 




04560 




00006 




03080 




DC 


6,574164,, 


PAUSE 


04565 




00005 


40488 


03090 




DSA 


DK 10 . 




04571 




00006 




03100 




DC 


6,464955, , 


FIND 


04576 




00005 


40488 


03110 




DSA 


DKIO 




04582 




00006 




03120 




DC 


6,464563,, 


FETCH 


04587 




00005 


to 48 8 


03130 




DSA 


DK 10 




04593 




00006 




03140 




DC 


6,594543, , 


RECORD 


04598 




00005 


40200 


03150 




DSA 


IOUT 




04604 




00006 




03160 




DC 


(, ,4X4343 , , 


ACC EPT 


04609 




00005 


i-0200 


03170 




DSA 


I OUT 




04615 




00006 




03180 




DC 


6,576455, , 


PUNCH 


04620 




00005 


40200 


03190 




DSA 


IOUT 




04626 




00006 




03200 




DC 


6 , 636857 , , 


TYPE 


04631 




00005 


i-0200 


03210 




DSA 


I OUT 




0463 7 




00006 




03220 




DC 


6,575949, , 


PRINT 


04642 






40200 


03230 




DSA 


I OUT 




04648 




00006 




03240 




DC 


6,594 541,, 


READ 


04653 




00005 


1-0224 


03250 




DSA 


NONARA 




04659 




00006 




03260 




DC 


6,435655, , 


CONTINUE 


04664 




00005 


40344 


03270 




DSA 


CALL 




04670 




00006 




03280 




DC 


6,434153,, 


CALL 


04675 




00005 


40320 


03290 




DSA 


GOTO 




04681 




00006 




03300 




DC 


6,475663, , 


GOTO 


***** 


1620 FORTRAN II-D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


ARFI 


MNEM 


OPERANDS AND 


REMARKS 


04686 




00005 


40296 


03310 




DSA 


IF 




04692 




00006 




03320 


TBST 


DC 


6 ,494624, , 


IF ( 


04694 




00002 




03330 




DS 


2 




04696 


16 


04738 


40055 


03340 


COLNAM 


TFM 


*+42 ,SYM-26, , 


COLLECT NAMES TD DETERMINE TYPE OF STMN7 


04708 


16 


0474 3 


45139 


03350 




TFM 


*+35 ,CHI 




04 72 


11 


04738 


00062 


03360 




AM 


*+18,2, 10 




04732 


26 


00000 


45139 


03370 




TF 


,CHI ,7 




04 744 


11 


04 74 3 


00062 


03380 




AM 


*-l ,2, 10 




04 756 


45 


04776 


04743 


03390 




BNR 


*+20,*-13, 11 




04 76 8 


49 


04800 


00000 


03400 




B 


* + 32 




04776 








03410 




DORG 


*-3 




04776 


12 


04695 


00061 


03420 




SM 


COLNAM-1, 1, 10 


04788 


47 


04720 


01200 


03430 




BNZ 


COLNAM+24 




04800 


16 


04830 


400 56 


03440 




TFM 


*+30,SYM-25 




04812 


11 


04830 


00062 


03450 




AM 


*+18,2, 10 




04824 


33 


00000 


00000 


03460 




CF 






04835 




00005 




03470 


OUTSCE 


DS 


5 , * 




04836 


24 


04830 


04738 


03480 




C 


*-6,C0LNAM+42 




04 84 8 


47 


04812 


01100 


03490 




BNH 


*-36 




04860 


26 


10081 


04736 


03500 




TF 


SYM,C0LNAM+42 


,11 


04872 


42 


00000 


00000 


03510 




BB 






04 8 74 








03520 




DORG 


*-9 












03530 


**** 


CHECK FOR CONTINUATION CARDS **** 


04875 




00002 




03540 




DS 


2 




04 8 76 


16 


00565 


64899 


03550 


CKCNTU 


TFM 


IORT, *+23 




04888 


49 


00566 


69901 


03560 




B 


I0GT,C5DATA-4 


,7 


04900 


43 


04962 


15849 


03570 




BD 


CKCN1 .CHI5+10 


04912 


16 


02603 


00060 


03580 




TFM 


CCNO,0,10 




04924 


14 


15839 


00043 


03590 




CM 


CHI5,43,10 




04936 


46 


04960 


01200 


03600 




BE 


* + 24 




04 948 


15 


15848 


00006 


03610 




TDM 


CHI5+9, 0,11 




04 96 


42 


00000 


00000 


03620 




BB 






04 961 








03630 




DORG 


*-10 




04962 


14 


02603 


00064 


03640 


CKCN1 


CM 


CCN0,04, 10, 


TEST FOR MORE THAN 4 CONTINUATION CARDS 


04974 


47 


0504 2 


01200 


03650 




BNE 


*+68 




04986 


14 


15839 


00043 


03660 




CM 


CHI5,43,10 




04998 


46 


05042 


01200 


03670 




BE 


*+44 




05010 


16 


02603 


00060 


03680 




TFM 


CCNO.O, 10 




05022 


16 


09373 


002-73 


03690 




TFM 


SPGS+11,273,9 




05034 


49 


09290 


00000 


03700 




B 


SPERR+12 




05042 








03710 




DORG 


*-3 




05042 


16 


05089 


1-5983 


03720 




TFM 


*+47,CHI5+144 


05054 


43 


05158 


10104 


03730 




BD 


CKCN2+68 , FMSW 


05066 


12 


05089 


00062 


03740 




SM 


*+23,2, 10 




05078 


26 


02612 


00000 


03750 




TF 


CKEND 




05 090 


43 


05146 


02612 


03760 


CKCN2 


BD 


*+56,CKEND 




05102 


43 


05146 


02611 


03770 




BD 


*+44,CKEND-l 




051 14 


14 


05089 


1-5851 


03780 




CM 


CKCN2-1.CHI5+12 


05126 


46 


05066 


01 100 


03790 




BH 


CKCN2-24 




05138 


49 


04876 


00000 


03800 




B 


CKCNTU 




05146 








03810 




DORG 


*-3 




05146 


11 


05089 


00062 


03820 




AM 


CKCN2-1 ,2,10 


05158 


15 


05089 


00000 


03830 




TDM 


CKCN2-1 ,,6 




05169 




00001 




03840 




DC 


i,a,* 




05170 


44 


05214 


02228 


03850 




BNF 


*+44,LIST,, 


TOTAL LISTING 










03860 


** 


PRINT CARDS FROM CHI5 


05182 


16 


02593 


1-58 39 


03870 




TFM 


DEFCHI.CHI5 





36 



){c # # sje J{( 


1620 FORTRAN 1 1 -D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 




OP 


P/L 





PG/ LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




16 


02525 


65214 


03880 




TFM 


PRTCH 1-1 ,*+20 




n5?nA 


49 


02526 




03890 




B7 


PRTCHI 




05214 


14 


15839 


00043 


03900 




CM 


C H 1 5 , 43 , 1 , 




05226 


46 


04876 


01200 


03910 




BE 


r k r mti i 




05238 


1 1 


02603 


00001 


03920 




AM 


rr MD.i.in 

l»l*IXUf If 1KJ 




05250 


43 


05386 


10 104 


03930 




BD 


CKCN4 • FMS W 




05262 


16 


05297 


4 5849 


03940 




TFM 


#+35 »CH 1 5 + 10 




05274 


11 


05297 


00062 


03950 




AM 


#+23,2,10 




05286 


45 


05330 


00000 


03960 


CKCN3 


BNR 


* + 44, 




052 98 


16 


08183 


00037 


03970 




TFM 


X+ll ,37,610 




053 10 


31 


08183 


06066 


03980 




TR 


X+ll , AVOID, 6 






49 


04876 


00000 


03990 




B 


CKCNTU 












04000 




DORG 


*-3 






14 


0529? 


oooeo 


040 10 




CM 


CKCN3+11 ,0 ,610 , 


CHECK FOR BLANKS AND MOVE NON BLANK 




46 


05274 


01200 


04020 




BE 


CKCN3-12, ,, 


TO SCAN AREA 




26 


08186 


0529* 


04030 




T F 


X+ll ,CKCN3+11,611 




11 


08183 


00062 


04040 




AM 


X+ll ,2,10 




n5S7H 
; j'° 


49 


05274 


00000 


04050 




B 


CKCN3-12 












04060 




DORG 


*-3 




nsa ra 


26 


05416 


08183 


04070 


CKCN4 


TF 


*+30,X+ll 




n<;f i n 


12 


05416 


oooe-i 


04080 




SM 


*+18,l,10 






31 


00000 


15850 


04090 




TR 


,CHI5+11 




n5i?? 


11 


08183 


00432 


04100 




AM 


X+ll ,132,9 






49 


04 876 


00000 


041 10 




B 


CKCNTU 












04120 


** ** * * 


THE FOLLOWING IS USED 


TO COLLECT STATEMENT NUMBERS ***** 


05446 


26 


05737 


5445 


04130 


CSTNO 






SET UP RETURN ADDRESS 


0545 8 


43 


05490 


15139 


04140 




BD 


#+32, CHI 




05470 


3 1 


15138 




04150 




TR 


CHI-1 ,CHI + 1, , 


SHIFT OFF LEADING ZEROS 


05482 


49 


054 5 8 


00000 


04160 




B 


*-24 




05490 








04170 










05490 


16 


1 0067 


06000 


04180 




TFM 


SYM-14,0000,8 




05502 


16 


05556 


i-0067 


04190 




TFM 


CSTN01+6 ,SYM— 14 




055 14 


14 


15139 


00069 


04200 




CM 


CHI ,69, 10 




05526 


47 


05654 


01100 


04210 




BNH 


CSTN01+104 




Pec 


11 


05556 


00061 


04220 




AM 


*+18,l , 10 






25 


00000 


15139 


04230 


CSTN01 


TD 


,CHI 






31 


15138 


15140 


042 40 




TR 


CHI-1 ,CHI+1 






45 


05594 


15141 


042 50 




BNR 


*+20,CHI+2 






49 


05618 


00000 


04260 




B 


* + 32 




05594 








04270 




DORG 


*-3 




05594 


14 


15139 


00069 


04280 




CM 


CHI ,69, 10 




fl5A?fi 


46 


05538 


01100 


0429 




BH 


CSTN01-12 






14 


05556 


•10071 


04300 




CM 


CSTN01+6,SYM-10 






47 


05654 


01100 


04310 




BNH 


* + 24 






17 


09440 


00576 


04320 




BTM 


ERR0R2,576,9, 


STATEMENT NO GREATER THAN 4 DIGITS 




26 


10081 


05556 


04330 




TF 


SYM,CSTN01+6, 11 






32 


10078 


00000 


04340 




SF 


SYM-3 




n5A7a 




00001 




043 50 


RTSW 


DS 


1 , *-4 




" ' 




00001 




04360 


ERSW 


DS 


1 ,*-3 








00001 




04370 


S TSN 


DC 


1 ,l,*-2 




riA A 77 




00002 




04380 


STC 


DC 


2 ,00,* 




05678 


43 


0544* 


10106 


04390 




BD 


CSTN0-1,DIMSW,6, 


EXIT IF IN DIMENSION STATEMENT 


05690 


15 


06453 


00002 


04400 




TDM 


FXORFL , 2 




05 702 


15 


07615 


00001 


04410 




TDM 


VARSW, 1, , 


EXIT TO LOOK UP STATEMENT NUMBFR 


05714 


15 


10105 


00001 


04420 




TDM 


STNOSW, 1 




05726 


49 


06988 


00000 


04430 




B 


SMTLU 




05738 


43 


05762 


10110 


04440 


CSORN 


BD 


*+24,E0USW 




***** 


1620 FORTRAN 1 1 -D 


PHASE 


1-B 






NOVEMBER , 1966 PAGE 




OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




7a? 


16 


06049 


1-5139 


04450 




TFM 


SCHI ,CHI ,, 


INITIALIZE IF NOT IN EQUIVALENCE 




15 


06453 


00000 


04460 




TDM 


FXORFL ,0, , 


INITIALIZE FIX OR FLOAT SWITCH 


r s ™ 


14 


06049 


00063 


04470 




CM 


SCHI ,3,610, 




05 786 


46 


06150 


01200 


04480 




BE 


NUMBER 




05 798 


14 


06049 


000^9 


04490 




CM 


SCHI ,69,610, 




058 10 


46 


06150 


01100 


04500 




8H 


NUMBER 




05822 


14 


06049 


00048 


04510 




CM 


SCHI ,48,610, 


TEST FOR FIX VAR. 


05834 


47 


05882 


01100 


04520 




BNH 


CS 




05846 


14 


06 04 9 


00055 


04530 




CM 


SCHI ,55,610 




05858 


46 


05882 


01100 


04540 




BH 


CS 




05 870 


15 


06453 


00002 


04550 




TDM 


FXORFL ,2 , , 


SET FXORFL TO FIX VAR 


05882 


16 


05965 


00090 


04560 


CS 


TFM 


SMLNG, 0, 10, 


INITIALIZE SYMBOL LENGTH COUNT 


058 94 


16 


05948 


1-0069 


04570 




TFM 


SALT+6,SYM-12 




05906 


16 


05 960 


i-0068 


04580 




TFM 


SALT+18.SYM-13 




05918 


11 


05948 


00062 


04590 




AM 


SALT+6,2, 10 




05 930 


11 


05960 


00062 


04600 




AM 


SALT+18,2, 10 




05 942 


26 


00000 


06049 


04610 


SALT 


TF 


, SCHI , 11, 




05 954 


33 


00000 


00000 


04620 




CF 






05 965 




00000 




04630 


SMLNG 


DS 


>* 




°59 6 8 


11 


05965 


00062 


04640 




AM 


SMLNG, 2, 10 






11 


06049 


00062 


04650 




AM 


SCHI ,2, 10 




05 990 


14 


06049 


00040 


04660 




CM 


SCHI ,40,610 




nArnf 


47 


06058 


01100 


04670 




BNH 


* + 56 






14 


05965 


00042 


04680 




CM 


SMLNG, 12 , 10 




OAOPA 


47 


05918 


01300 


04690 




BL 


SALT-24 




nAnao 
nAfifo 


32 


10070 


00000 


04700 




SF 


SYM-11 








00000 




04710 


SCH I 


DS 


, * 




riAn^n 


49 


06138 


00000 


04720 




B 


SC2 




AAKO 








04730 




DORG 


*-3 




06058 


32 


10070 


00000 


04740 




SF 


SYM-11 




06 066 




00002 




04750 


A VO 1 


DC 


2,37,*-3 




06068 




00002 




04760 




DC 


2,a,#-i 




06070 


26 


10081 


05946 


04770 




TF 


SYM.SALT+6, 11 , 




06082 


15 


07615 


00000 


04780 




TDM 


VARSW ,0 




06094 


43 


06988 


10110 


04790 




BD 


SMTLU, EOUSW, , 


TEST TO SEE IF 


061 06 


12 


06049 


0006 1 


04800 




SM 


SCHI ,1 , 10 , 


SYMBOL IS TO BE 


061 18 


31 


15138 


06049 


04810 




TR 


CHI-1, SCHI, 11, 


SHIFTED OFF 


061 30 


49 


06988 


00000 


04820 




B 


SMTLU 




061 3 8 








04830 




DORG 


*-3 




06138 


17 


09384 


00678 


04840 


SC2 


BTM 


ERROR, 78, 9, 


NAME GREATER THAN 6 CHARACTERS 


061 50 


15 


07615 


00001 


04850 


NUMBER 


TDM 


VARSW, 1,, 


SET VARIABLE SW. TO INDICATE LITERAL 




26 


10081 


06988 


04860 




TF 


SYM,ZERSYM+1 




«A1 7A 


16 


06308 


40052 


04870 




TFM 


NUMB1+6 ,SYM-29 




nAi )A 


14 


15139 


000*0 


04880 




CM 


CHI, 70, 10, 


TEST FOR LEADING ZEROS 


nAi q« 


47 


06230 


01200 


04890 




BNE 


# + 32 




?f !; 


31 


15138 


15140 


04900 




TR 


CHI-1 ,CHI+1 




06222 


49 


06186 


00000 


04910 




B 


*-36 




06230 








04920 




DORG 


*-3 




06230 


14 


15139 


00063 


04930 


NUMB 


CM 


CHI, 3, 10 




06242 


46 


06462 


01200 


04940 




BE 


FLNUMB 






14 


15139 


00069 


04950 




CM 


CHI ,69, 10 




nA7 AA 


47 


06358 


01100 


049 60 




BNH 


FXNUMB 




06278 


14 


06308 


40082 






CM 


NUMB1+6,SYM+1 




06290 


46 


06314 


01300 


04980 




BNL 


* + 24 




06302 


25 


00000 


15139 


04990 


NUMB 1 


TD 


,CHI ,, 


COLLECT MANTISSA 


06314 


31 


15138 


15140 


05000 




TR 


CHI-1 ,CHI+1 




06326 


11 


06308 


00061 


05010 




AM 


NUMB1+6, 1, 10 





9 





1620 FORTRAN 1 1 -0 


PHASE 


1~B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


06338 


11 


10051 


OOO&l 


05020 


NUMB 5 


AH 


SYM-30, 1,10 




06350 


49 


06230 


00000 


05030 




B 


NUMB 




06358 








05040 




OORG 


*-3 




06358 


15 


06453 


00002 


05050 


FXNUMB 


TDM 


FXORFL, 2, , 


SET FIX OR FLOAT SW TO FIX CONST 


06370 


12 


10051 


oooei 


05060 




SM 


SYM-30, 1, 10 




06382 


24 


02252 


10051 


05070 




c 


KLNG , SYM-30 > t 


TEST IF FIX NUMBER EXCEEDS K 


06394 


46 


06418 


01300 


05080 




BNL 


*+24 




06406 


17 


09384 


00477 


05090 




BTM 


ERROR, 177 ,9, 


FIXED POINT NUMBER GREATER THAN K 


064 18 


26 


10051 


10093 


05100 




JF 


SYM-30, TENZ 




06430 


26 


10082 


06308 


051 10 




TF 


SYM+1 .NUMB1+6, 11, 


RIGHT JUSTIFY VALUE 


06442 


32 


1-0082 


00000 


05120 




SF 


SYM+1, ,2 




064 51 




00002 




05130 


MOOE 


DC 


2,0,*-2 




06453 




00002 




05140 


FXORFL 


DC 


2,0,* 




06454 


49 


06988 


00000 


051 50 




R 


SMTLU 




06462 








051 60 




DORG 


*-3 




06462 


16 


06552 


&6510 


n^«n 


PI Ml IMR 


Jm^ 


V ARBR+6 , NUMB3 




064 74 


14 


10051 


00091 








SYM-30, 1,10 






46 


06510 


01200 


05190 




RF 


*+24 




06498 


16 


06552 


66618 


05200 




TFM 


VARBR+6,NUMB2+12 




065 10 


12 


10051 


oooei 


052 10 


NUMB 3 


SM 


SYM-30, 1, 10 




06522 


31 


15138 


15140 


05220 




TR 


CHI-l.CHl+l 




06534 


14 


15139 


000?0 


05230 




CM 


CHI ,70, 10 




06546 


46 


00000 


01200 


05240 


VARBR 


BE 


< , , 


BRANCH BACK TO SHIFT OFF LEADING 7ER0S 


06558 


47 


06638 


01100 


05250 




BNH 


CMPAR 




06570 


16 


06552 


6-6618 


05260 




T FM 


V ARBR+6 , NUMB 2+ 12 




065 82 


14 


06308 


1:0082 


05270 




CM 


NUMB1+6, SYM+1 




06594 


46 


06618 


01300 


05280 




BNL 


* + 24 




06606 


25 


06308 


15139 


05290 


NUMB2 


TD 


NUMB1+6,CHI ,6, 


COLLECT NUMBER 


06618 


11 


06308 


oooei 


05300 




AM . 


NUMBl+6,1,10 




06630 


49 


06522 


00000 


05310 




B 


NUMB3+12 




06638 








05320 




OORG 


*-3 




06638 


14 


15139 


00045 


05330 


CMPAR 


CM 


CHI ,45, 10, 


TEST FOR E TYPE 


06650 


47 


06878 


01200 


05340 




BNE 


PLUS+12 




06662 


16 


06877 


oooeo 


05350 




TFM 


PLUS+11,0, 10 




066 74 


15 


06867 


00001 


05360 




TDM 


PLUS+1, 1 




06686 


14 


15141 


00020 


05370 




CM 


CHI+2,20, 10 




06698 


47 


06734 


01300 


05380 




BL 


* + 36 




067 10 


47 


06746 


01200 


05390 




Tni!« 


*+36 




06722 


15 


06867 


00002 


05400 






PLUS+1, 2 




06734 


31 


15138 


15140 


5410 




TD 


CHI-l.CHI+l 




06 746 


14 


15141 


00069 






CM 


CHI + 2,69, 10 




06758 


46 


06782 


01100 


05430 




RH 


* + 24 




06770 


17 


09384 


OOi-78 


5440 


E XC ESS 


BTM 


ERROR, 178,9, 


INVALID EXPONENT 


06782 


25 


06877 


15141 


05450 




TD 


PLUS+1 l.CHI+2 




06794 


31 


15138 


15142 


05460 






CHI-l.CHI+3 




06806 


14 


15139 


00069 


5470 




CM 


CHI ,69, 10 




068 18 


47 


06866 


01100 


05480 




BNH 


PLUS 




06830 


22 


06876 


06877 


05490 




s 


PLUS+10.PLUS+11 




06842 


25 


06877 


15139 


05500 




TD 


PLUS+1 1, CHI 




06854 


31 


15138 


15140 


05510 




TR 


CHI-1 ,CHI+1 




06866 


11 


10051 


eoooo 


05520 


PLUS 


AM 


SYM-30, ,7 




06878 


26 


10081 


10051 


05530 




TF 






06890 


32 


10052 


00000 


05540 




SF 


SYM-29 




06902 








05550 




TF 


SYM-2, SYM-30, 7 




06914 


46 


06770 


01400 


05560 




BV 


EXCESS 




06926 


43 


06988 


10052 


05570 




BD 


SMTLU , SYM-29 




06938 


16 


10081 


00099 


05580 




TFM 


SYM,99,1011 




***** 


1620 FORTRAN 1 1 -D 


PHASE 








NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


06950 


49 


06988 


00000 


05590 




B 


SMTLU 




0695 8 












DORG 


*-3 








00030 




05610 




DC 


30,0 




06959 




00003 




05620 




DC 


3,010,ZERSYM-28 














****** 


SYMBOL TABLE LOOK UP 


****** 










5640 








* 


06988 


16 


07919 


8-2373 


05650 


S MT LU 


TFM 


MODAD, STBL-4 




07000 


16 


07242 


80000 


05660 




TFM 


SMADD 




07012 


16 


07295 


02371 






TFM 


SMCNT .STBL-6 












05680 


****** 


MODAD IS USED TO TEST 


FOR FIX OR FLOAT 










05690 




SMADO WILL CONTAIN THE 


ADDRESS OF THE SYMBOL ENTRY AT EXIT 










05700 


** 


SMC NT IS USED TO FIND 


VARIABLE OR LITERAL 


07024 


26 


07059 


02429 


05710 




TF 


LSTFN tTBCNT 




07036 


11 


07059 


0008-1 


05720 




AM 


LSTEN , 1 , 10 




07048 


33 


08124 


00000 


05730 




CF 


DMVAR 




07059 




00000 




05740 


LSTEN 


DS 


,* 




07060 


49 


07104 


00000 


05750 




B 


SML00P+36 




07068 








05760 




DORG 


*-3 




07068 


12 


07295 


OOOiO 


05770 


S ML OOP 


SM 


SMC NT, 10, 10 




0706 8 




00000 






OUTSW 


DS 


.SMLOOP 




07080 


12 


07919 


00040 


05790 




SM 


MODAD, 10, 10 




07092 


11 


07242 


00040 


05800 




AM 


SMADD, 10, 10 




071 04 


12 


07059 


oooei 






SM 


LSTEN, 1, 10 






46 


07204 


01100 


r>t;R?n 




BH 


JOE 




n7i tr> 


26 


07163 


07295 


n^flf n 




TF 


*+35, SMCNT 






12 


07163 


000*0 






SM 


*+23,50, 10 




07152 


45 


07184 


00000 






BNR 


TBLFUL 




071 64 


11 


02429 


oooei 


05860 




AM 


TBCNT , 1 , 10 




071 76 


49 


08124 


00000 


05870 




B 


ADVAR 




07184 








05880 




DORG 


*-3 




071 84 


17 


09440 


00&74 


05890 


TBLFUL 


BTM 


ERR0R2,74,9, 




07196 


49 


00796 


00000 


05900 




B 


MONCAL , , , 


ABORT JOB CAN NOT GO ON 


07204 








05910 




DORG 


*-3 




07204 


43 


07720 


076 L5 


05920 


JOE 


BD 


L ITERL ,V ARSW , , 


BRANCH IF SYMBOL IS A CONSTANT 


07216 


44 


07236 


0729* 


05930 




BNF 


*+20, SMCNT, 11, 


FLAG AT SMCNT IMPLIES CONSTANT 


07228 


49 


07068 


00000 


05940 




B 


SMLOOP 




07236 








05950 




DORG 


*-3 




07236 


24 


00000 


10081 


05960 




C 


,SYM 




07242 




00000 




05970 


SMADD 


DS 


,*-5 




07248 


46 


07068 


01400 


05980 




BV 


SMLOOP 




07260 


47 


07068 


01200 


05990 




BNE 


SMLOOP 




07272 


15 


02611 


00001 


06000 




TDM 


INSW,1,, 


SET DIGIT IN INSW IF VARIABLE FOUND 


07284 


33 


07242 


00000 


060 10 




CF 


SMADD 




07295 




00000 




06020 


SMC NT 


DS 


, * 




07296 


24 


07242 


02318 


06030 




C 


SMADD, FCTEND,, 


TEST IF SYMBOL WAS LIBRARY FUNCT 




46 


08880 


01100 






BH 


FCTEST, , , 




07320 


11 


07295 


000&3 






AM 


SMCNT, 3, 10 




07332 


43 


0573? 


10106 


06060 




BD 


CS0RN-1,DIMSW,6, 


RETURN IF IN DIMENSION STATEMENT 




43 


07376 


10110 


n^ORn 




BD 


*+32,EQUSW 




07356 


14 


15139 


00024 






CM 


CHI ,24, 10 




07368 


49 


07388 


00000 


06090 




B 


* + 20 




07376 








06100 




DORG 


*-3 




07376 


14 


06049 


00024 


06110 




CM 


SCHI ,24,610 




07388 


45 


07408 


0729* 


06120 




BNR 


*+20, SMCNT, 11 




074 00 


49 


07980 


00000 


06130 




B 


FCTST 




07408 








06140 




DORG 


*-3 




07408 


46 


07512 


01200 


06150 




BE 


DIMERR+12 





***** 


1620 FORTRAN II-D 


PHASE 


1~B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LAB EL 


MNEM 


OPERANDS AND REMARKS 


07420 


43 


07440 


07295 


06160 




BO 


*+20, SMCNT, 11, 


TEST FOR DIM VARIABLE 


07432 


49 


07556 


00000 


06170 




B 


LUXIT 




07439 








061 80 




DORG 


*-4 




07439 




00001 






FNTSW2 




1.0 






43 


07556 


10113 








LUXIT, IOSW,, 


DIM VAR USED W/0 DIM IN I/O STATEMENT 


07452 


43 


07556 


07439 






Rn 


LUXIT, FNTSW2 






43 


07556 


10111 






Rn 


LUXIT .CALLSW,, 


DIM VAR USED W/0 DIM IN CALL - 


074 76 


43 


11968 


10112 


06230 




Rn 


COME ,COMSW, , 


SAME FOR COMMON 




43 


07544 


10110 


06240 




BD 


LUX IT-12 » EQUSW 




075 00 


17 


09384 


006-73 


06250 


D IM ERR 


BTM 


ERROR, 73, 9, 


DIMENSIONED VAR USED WITH OUT SUBSCRIPT 


075 12 


43 


09496 


10112 


06260 




BD 


C0MER2 jCOMSW 




07524 


43 


07544 


07295 


06270 




BD 


*+20,SMCNT, 11 




07536 


49 


07500 


00000 


06280 




B 


DIMERR 




07544 








06290 




DORG 


*-3 




07544 


32 


08124 


00000 


06300 




SF 


DMVAR , , , 


SET DIMENSION VARIABLE SWITCH 










06310 


****** 


EXIT FROM TABLE LOOK 


UP ****** 


07556 


44 


0573? 


07068 


06320 


LUX I T 


BNF 


CS0RN-1,0UTSW,6, 


EXIT IF OUTSW NOT SET 


07568 


33 


07068 


00000 


06330 




CF 


OUTSW 




07580 


27 


09084 


07241 


06340 




BT 


PUT.SMADD-l 




07592 


44 


07636 


08124 


06350 




BNF 


*+44, DMVAR 




07604 


33 


08124 


00000 


06360 




CF 


DMVAR 




07615 




00000 




06370 


VARSW 


DS 


t* 




07616 


26 


04835 


05737 


06380 




TF 


OUTSCE .CSORN-l 




07628 


49 


10464 


00000 


06390 




B 


OUTSC 




07636 








06400 




DORG 


*-3 




07636 


44 


07668 


10102 


06410 




BNF 


*+32 ,FNTSW,, 


TEST IF SYMBOL WAS A FUNCTION MAM E 


07648 


17 


09084 


06-154 






BTM 


PUT, 0154, 8, 


ARITH STATEMENT CALL 




49 


0573? 


00000 


06430 




B 


CSORN-l, ,6 
















DORG 


*-3 




07668 


43 


07688 


10102 






BD 


*+20,FNTSW,, 


DIGIT AND NO FLAG IMPLIES SUBPROGRAM 


07680 


49 


0573? 


00000 






B 


CSORN-l , ,6 




07688 








06470 




DORG 


*-3 




07688 


43 


09484 


10109 


06480 




BD 


AERR1 ,OMM, , 


STATEMENT FUNCTION PRFV DEFINED 


07700 


17 


09084 


08-153 


06490 




BTM 


PUT ,01 53 ,8 , 


FUNCTION OPERATOR CALL 


07712 


49 


0573? 


00000 


06500 




B 


CSORN-l, ,6 




07720 








06510 




DORG 


*-3 












06520 


* * * * * * 


SEARCH SYMBOL TABLE 


FOR CONSTANTS ****** 


07720 


44 


07068 


07295 


06530 


L ITERL 


BNF 


SML00P,SMCNT,11, 


CONSTS HAVE FLAG 


07732 


43 


08744 


10105 






BD 


LUSTNO.STNOSW, , 


BRANCH IF LOOKING-UP STATFMENT NUMBER 


07744 


43 


08060 


06453 


06550 




BD 


FXL IT , FXORF L , , 


BR IF SEARCHING FOR FIXED CONST 


07756 


43 


07068 


07919 


06560 




BD 


SML OOP, MODAD, 11, 




07768 


24 


0724? 


10081 


06570 


L ITF 


C 


SMADD , S YM , 6 , 


COMPARE CHARACTERISTICS 


07780 


47 


07068 


01200 


06580 




BNE 


SML OOP 




07792 


26 


08519 


07242 


06590 




TF 


ADSAVE, SMADD 




07804 


33 


08519 


00000 


06600 




CF 


ADS AVE 




07816 


33 


07295 


00000 


06610 




CF 


SMC NT, ,6 




07828 


12 


08519 


00002 


06620 




SM 


ADSAVE, 2, 610 




07840 


24 


07242 


10079 


06630 




C 


SMADD ,SYM-2,6, 


COMPARE MANTISSA 


07852 


46 


07896 


01200 


06640 




BE 


*+44 




07864 


11 


08519 


0006-2 






AM 


ADSAVE, 2, 610 




07876 


32 


07295- 


00000 


06660 




SF 


SMCMT, ,6 




07888 


49 


07068 


00000 






B 


SMLOOP 




07896 








066 80 




DORG 


*-3 




07896 


11 


08519 


00062 


06690 




AM 


ADSAVE, 2, 610 




07908 


32 


07295 


00000 


06700 




SF 


SMCNT,,6 




07919 




00000 




06710 


MODAD 


DS 


, * 




07920 


15 


02611 


00001 


06720 




TDM 


INSW, 1 





42 



CP 





1620 FORTRAN II-D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 13 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


07932 


33 


07242 


00000 


06730 


E37061 


CF 


SMADD 




07944 


14 


15139 


00024 


06740 




CM 


CHI ,24, 10 




07956 


47 


07556 


01200 


06750 




BNE 


LUXIT 




07968 


17 


09384 


00*78 


06760 




BTM 


ERROR, 378, 9 












06770 


****** 


TEST FOR SINGLE STATEMENT FUNCTION OR FUNCTION SUBROUTINE 


07980 


46 


08016 


01200 


06780 


FCTST 


BE 


* + 36 




07992 


43 


08016 


10111 


06790 




BD 


*+24,CALLSW 




08004 


17 


09384 


00«79 


06800 


ERR09 


BTM 


ERROR, 079, 9, 


INCORRECT USE OF SUBPROGRAM NAMF 


08016 


15 


10102 


00001 


06810 




TDM 


FNTSW, 1,, 


FUNCTION SUBROUTINE 


08028 


44 


07556 


07295 


06820 




BNF 


LUXIT, SMCNT, 11 




08040 


32 


10102 


00000 


06830 




SF 


FNTSW, , , 




08052 


49 


07556 


00000 


06840 




B 


LUXIT 




08060 








06850 




DORG 


*-3 




08 060 


43 


08080 


07919 


06860 


FXL I T 


BD 


*+20, MODAD, 11, 


DIGIT INDICATES FIX VAR ' 


08072 


49 


07068 


00000 


06870 




B 


SMLOOP 




08080 








06880 




DORG 


*-3 




08080 


44 


07068 


07919 


06890 




BNF 


SMLOOP, MODAD, 11, 


TEST FOR STATEMENT NO. 


08092 


24 


07242 


10081 


06900 




C 


SMADD, SYM ,6 




08104 


47 


07068 


01200 


06910 




BNE 


SMLOOP 




081 16 


49 


07932 


00000 


06920 




B 


E37061 




08124 








06930 




DORG 


*-3 












06940 


****** 


ENTRY TO ADO A NEW 


VARIABLE TO SYMBOL TABLE ****** 


08124 


33 


07242 


00000 


06950 


ADVAR 


CF 


SMADD 




08124 




00000 




06960 


DMVAR 


DS 


, ADVAR 




08136 


15 


02611 


00000 


06970 




TDM 


INSW,0 




08148 


11 


07295 


00063 


06980 




AM 


SMCNT, 3, 10 




08160 


25 


07919 


06453 


06990 




TD 


M0DAD,FX0RFL,6, 




08172 


32 


07919 


00000 


07000 


X 


SF 


MODAD, ,6 




08184 


43 


08584 


07615 


07010 




BD 


ADLIT, VARSW,, 


BRANCH TO ADD CONSTANT 


08196 


21 


02372 


05965 


07020 




A 


NXLOC , SMLNG , , 


MOD SYMBOL STORAGE BY NUMBER OF CHAR 


08208 


26 


02372 


10081 


07030 




TF 


NXL0C,SYM,6, 


MOVE SYMBOL INTO SYM STORAGE 


08220 


26 


07243 


02372 


07040 


ADVLOP 


TF 


SMADD, NXLOC, 6, 


MOVE ADD OF SYM INTO SYMBOL TABLE 


08232 


43 


08252 


10106 


07050 




BD 


A0VAR1 ,DIMSW, , 


TEST IF IN DIMENSION STATEMENT 


08244 


49 


08300 


00000 


07060 




B 


ADVAR2 




08252 








07070 




DORG 


*-3 




08252 


12 


07242 


000-iO 


07080 


ADVAR1 


SM 


SMADD, 10, 10 




08264 


11 


02429 


oooei 


07090 




AM 


TBCNT ,1,10 




08276 


26 


07242 


02372 


07100 




TF 


SMADD, NXLOC, 6, 


PLACE DOUBLE ENTRY FOR DIMENSION VAR 


08288 


11 


07242 


00040 


07110 




AM 


SMADD, 10, 10 




08300 


43 


08496 


10114 


07120 


ADVAR2 


BD 


ADSUBP,SUBSW, , 


TEST IF IN SUBROUTINE STATEMENT 


08312 


43 


0573? 


10106 


07130 




BD 


CSORN-l, DIMSW, 6, 


GOTO COLLECT DIMENSIONS IF IN DIM 


08324 


44 


08 348 


10112 


07140 


SETIND 


BNF 


*+24,C0MSW,, 


TEST IF IN COMMON 


08336 


32 


07295 


00000 


07150 




SF 


SMCNT, ,6, 


SET FLAG ON INDICATOR IF COMMON VARIABLE 


08348 


43 


08380 


10110 


07160 


SUBTST 


BD 


*+32 ,EQUSW,, 




08360 


14 


15139 


00024 


07170 




CM 


CHI ,24, 10 




08372 


49 


08392 


00000 


07180 




B 


* + 20 




08380 








07190 




DORG 


*-3 




08380 


14 


06049 


00024 


07200 




CM 


SCHI,24,610 




08392 


47 


07556 


01200 


07210 




BNE 


LUXIT 




08404 


43 


08484 


10110 


07220 




BD 


SUBTR, EOUSW,, 




08416 


43 


07556 


10114 


07230 




BD 


LUXIT, SUBSW, , 


DO NOT SET SWITCH IF IN DECLARATION STMT 


08428 


43 


09496 


10112 


07240 




BD 


C0MER2.C0MSW 




08440 


15 


10102 


00001 


07250 




TDM 


FNTSW, 1 , , 


SET SWITCH FOR FUNCTION NAME (A) 


08452 


15 


07295 


00000 


07260 




TDM 


SMCNT, ,6 




08463 




00001 




07270 




DC 


1,3,* 




08464 


43 


13282 


10109 


07280 




BD 


ASC21 ,OMM 




084 76 


49 


07556 


00000 


07290 




B 


LUXIT, 





o 



43 



1620 FORTRAN II-D PHASE 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


08484 








07300 




DORG 


*-3 






08484 


17 


09384 


00470 


07310 


SUBTR 


BTM 


ERROR, 170,9, 




DIM VAR IN EOUIV W/0 PREVIOUS DIMENSIONS 










07320 


****** 


ENTRY TO PLACE 


VARIABLE IN SUBROUTINE DEFINITION IN TABLE 










07330 


****** 


THESE VARIABLE 


ARE 


PLACED IN TWICF BECAUSE OF POSSIBLE 










07340 


** 


DIMENSIONING LATER 




08496 


44 


08540 


10114 


07350 


ADSUBP 


BNF 


*+44,SUBSW 






08508 


33 


10114 


00000 


07360 




CF 


SUBSW 






085 19 




00000 




07370 


ADSAVE 


OS 


, * 






08520 


11 


07242 


00040 


07380 




AM 


SMADD, 10, 10 






08532 


49 


08324 


00000 


07390 




B 


SET IND 






08540 








07400 




DORG 


*-3 






08540 


32 


10114 


00000 


07410 




SF 


SUBSW 






08552 


12 


07242 


oooto 


07420 




SM 


SMADD ,10,10 






08564 


11 


02429 


oooei 


07430 




AM 


TBCNT, 1, 10 






08576 


49 


08220 


00000 


07440 




B 


ADVLOP,,, 




BRANCH TO PLACE SYMBOL IN SECOND TIME 


08584 








07450 




DORG 


*-3 














07460 


****** 


ENTRY TO PLACE 


CONSTANTS IN TABLE ***** 


08584 


43 


08808 


10105 


07470 


AOL IT 


BD 


ADSTN, STNOSW, 




BRANCH TO ADD STATEMENT NUMBER 


08596 


43 


08712 


06453 


07480 




BD 


ADXL IT ,FXORFL 




BRANCH TO ADD FIX CONST 


08608 


21 


02372 


02250 


07490 




A 


NXLOC , FLNG 






08620 


26 


0237? 


10079 


07500 




TF 


NXLOC ,SYM-2,6 




MOVE IN FLOATING MANTISSA 


08632 


11 


02372 


00092 


07510 




AM 


NXLOC, 2, 10 






08644 


26 


0724? 


02372 


07520 




TF 


SMADD, NXLOC, 6 




SET SYM ADD INTO TABLF 


08656 


26 


0237? 


10081 


07530 


ADL IT1 


TF 


NXL0C,SYM,6, 




MOVE CHARACTERISTIC OR FIX CONST 


08668 


12 


07242 


00091 


07540 




SM 


SMADD, 1, 10 






08680 


32 


0724? 


00000 


07550 




SF 


SMADD, ,6 






08692 


1 1 


07242 


oooei 


07560 




AM 


SMADO, 1, 10 






08704 


49 


07944 


00000 


07570 




B 


E37061+12 






087 12 








07580 




DORG 


*-3 






087 12 


21 


02372 


02252 


07590 


ADXL IT 


A 


NXLOC, KLNG 






08724 


26 


0724? 


02372 


07600 




TF 


SMADD, NXLOC, 6 






08736 


49 


08656 


00000 


07610 




B 


ADLIT1 






08744 








07620 




DORG 


*-3 














07630 


****** 


ENTFR WHEN LOOKING 


UP STATEMENT NUMBERS ****** 


08744 


44 


08764 


7919 


07640 


LUSTNO 


BNF 


*+20,M0DAD, 11 






08756 


49 


07068 


00000 


07650 




B 


SMLOOP 






08764 








07660 




DORG 


*-3 






08764 


24 


07242- 


10081 


07670 




C 


SMADD , S YM, 6 






08776 


47 


07068 


01200 


07680 




BNE 


SMLOOP 






08788 


15 


10105 


00000 


07690 




TDM 


STNOSW, 






08800 


49 


07920 


00000 


07700 




B 


E37061-12 , , , 




BRANCH TO SET INSW AND GO TO LUXIT 


08808 








07710 




DORG 


*-3 














07720 


****** 


ENTER TO ADD STATEMENT NUMBER ****** 


08808 


11 


02372 


000G4 


07730 


ADSTN 


AM 


NXLOC ,4 , 10 






08820 


26 


0724? 


02372 


07740 




TF 


SMADO, NXLOC ,6 




MOVE STAMNT NO. ADDRESS TO TABLF 


08832 


33 


07919 


00000 


07750 




CF 


MODAD, ,6, 




CLEAR FLAG FOR STATEMENT NUMBER 


08844 


1 5 


10105 


00000 


07760 




TDM 


STNOSW , 






08856 


49 


08656 


00000 


07770 




B 


ADL I T 1 






08868 


1 7 


09 38 4 


00-374 


07780 




BTM 


ERROR, 374, 9, 




ILLEGAL USE OF FUNCTION NAME 


08880 


43 


08868 


10112 


07790 


FCTEST 


BD 


*-12,C0MSW,, 




TF ST FOR FUNCTION NAME IN COMMON 


088 92 




08868 


10110 


07 800 




BD 


*-24,E0USW, , 




FUNCT NAME IN EOUIV 


08904 


43 


08868 


10106 


07810 




BD 


*-36,DIMSW, , 




1 


08916 


43 


08868 


10113 


07820 




BD 


*-48,I0SW 






08928 


43 


08868 


10109 


07830 




BD 


FCTEST-12,0MM 






08940 


14 


15139 


0002-4 


07840 




CM 


CHI ,24, 10 






08952 


47 


08868 


01200 


07850 




BNE 


FCTFST-12 






08964 


26 


08999 


07242 


07860 




TF 


*+35, SMADD 







44 



1620 FORTRAN II-D PHASE 1-B 



NOVEMBER, 1966 



LUCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


08976 


11 


08999 


000&5 


07870 




AM 


*+23,5, 10 




08988 


26 


02620 


00000 


07880 




TF 


TFMP,, , 




09000 


12 


02620 


62243 


07890 




SM 


TFMP ,ENTL0G-5 




09012 


13 


02620 


00002 


07900 




MM 


TEMP ,2,10 




09024 


32 


00097 


00000 


07910 




SF 


97 




09035 




00000 




07920 


REF 


DS 






09036 


16 


09066 


62262 


07930 




TFM 


*+30,USEDFS-l 




09048 


21 


09066 


00098 


07940 




A 


*+18,98 




09060 


15 


00000 


oooei 


07950 




TDM 


,1 ,10, 


SF T INDICATOR FOR FUNCTION USFD 


09072 


49 


07556 


00000 


07960 




B 


LUXIT 




09084 


43 


09262 


56 74 


07970 


PUT 


BD 


EXIT,ERSW 




09096 


26 


09378 


09083 


07980 




TF 


PUTOUT ,PUT-1 




09108 


49 


09128 


00000 


07990 




B 


E94270 




091 16 








08000 




DORG 


*-3 




091 16 


26 


09378 


09082 


08010 




TF 


PUTOUT, PUT-2 




09128 


31 


1-5036 


09375 


08020 


E94270 


TR 


CARD,PUT0UT-3,2 




09140 


11 


09134 


000&4 


80 30 




AM 


*-6,4, 10 




09152 


14 


09134 


3-5136 


08040 




CM 


*-18,CARD+100 




09164 


46 


09178 


01200 


08050 




BE 


*+14 




09176 


42 


00000 


00000 


08060 




BB 






09178 








08070 




DORG 


*-9 




09178 


16 


00565 


€9201 


08080 




TFM 


I0RT,*+23 




09190 


49 


00532 


69269 


08090 




B 


I0PT,INT0P,7 




09202 


11 


02390 


00061 


08100 




AM 


INTOPl+5,1,10 




09214 


49 


09250 


00200 


08110 




B 


*+36, 00200,, 


C9T7 ST ON SW 2 


09226 


34 


00000 


00102 


08120 




RCTY 






09238 


38 


15036 


00 100 


08130 




WNTY 


CARD 




09250 


16 


09134 


i-5036 


08140 




TFM 


E94270+6,CARD 




09262 


42 


02430 


00000 


08150 


EXIT 


BB 


E86440 




09269 








08160 




DORG 


*-4 




09269 




00002 




08170 


INTOP 


DSC 


2,02 




09275 




00005 


62385 


08180 




DS A 


INT0P1 




092 76 




00001 




08190 




OC 


1,3 




09278 


16 


09373 


00971 


08200 


SPERR 


TFM 


SPGS+11,071,9 




09290 


43 


09362 


02424 


08210 




BD 


SPGS.INDIV 




09302 


16 


00565 


69325 


08220 




TFM 


IORT,*+23 




09314 


49 


00566 


69901 


08230 




B 


IOGT ,C5DATA-4,7 , 


CHECK FOR CONTINUATION CARDS 


09326 


14 


15839 


00043 


08240 




CM 


CHI5,43,10 




09338 


46 


09362 


01200 


08250 




BE 


* + 24 




09350 


43 


09302 


15849 


08260 




BD 


SPERR+24,CHI5+10 




09362 


17 


09 38 4 


00671 


08270 


SPGS 


BTM 


ERROR, 07 1,9 




09378 




00005 




08280 


PUT OUT 


DC 


5 ,0 




09379 




00001 




08290 




DC 


1,3 




09383 




00004 




08300 




DS 


4 




09384 


15 


05674 


00001 


08310 


ERROR 


TDM 


ERSW.l 




09396 


15 


09429 


00009 


08320 




TDM 


E94620+l,9 












08330 


* CALL 


ERROR PRINT OUT OF DISK 


-RETURN IS TO E94620 


09408 


16 


02496 


63486 


08340 




TFM 


RETR +6.ER1 ,, 


SET BRANCH TO ERROR MFSSAGF 


09420 


49 


02454 




08350 




B7 


FLIP 




09428 


49 


02638 


00000 


08360 


E94620 


B 


BEGINA 




09440 


15 


09429 


00002 


08370 


ERR0R2 


TOM 


E94620+l,2 




09452 


15 


02367 


00004 


08380 




TDM 


JAY, 4 




09464 


26 


09 383 


09439 


08390 




TF 


ERR0R-1,ERR0R2-1, , 


TRANSMIT THE ERROR NUMBFR 


09476 


49 


094 08 


00000 


08400 




B 


ERROR+24 




09484 








08410 




DORG 


*-3 




09484 


17 


09384 


00576 


08420 


AERR1 


BTM 


ERROR ,376,9 




09496 


17 


09384 


00372 


08430 


COMER 


BTM 


ERROR ,372,9, 


INCORRECT COMMON STATEMENT 



45 



***** 


1620 FORTRAN I'l-D 


PHASE 


1-B 




NOVEMBER, 1966 PAGE 




□ P 


P/L 


Q 


PG/ LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


094 96 




00000 




08440 


C0MER2 


DS 


, COMER 












********************************************************************** 


09508 


14 


15145 


000fr3 




ENDTR 


CM 


CHI+6, 63, 10 ,,, CHECK FOR END TRACE 


0952 


47 


095 76 


01200 


08444 




BNE 


END+12 


09532 




0908 4 




0844 5 




BTM 


PUT, 153, 8 t»,PUT END TRACE SYMBOL 


09544 


17 


09084 


OS 140 


08446 




BTM 


PUT, 140, 8 


09556 


49 


04216 




08448 




B7 


Ll-24,,, 




45 


09508 


15145 


08450 


END 


BNR 


ENDTR, CHI+6 


noK7A 

095 76 


43 


09596 


02293 






BD 


*+20 , SUBFCT 










08457 










49 


09620 


00000 


08460 




B 


* + 32 


n e a 
















nq5QA 


43 


09620 


05673 


08480 




BD 


* + 24 , RTSW 


noAnfl 


17 


09440 


00578 


08490 




BTM 


ERR0R2 , 578 , 9 




46 


09632 


01400 


OR5?n 




B V 


* + 12 




43 


00796 


056 74 






BD 


MONCAL ,ERSW,, SKIP STORAGE ALLOCATION IF PROG HAD ERR 


09644 


17 


09084 


06141 


n«R?n 




BTM 


PUT, 141, 8, END j 


09656 


17 


09084 


06140 








PUT, 140, 8, DUMMY 




17 


09084 


0613? 






BTM 


DtlT nl 5? a i i ccut rni mi 
ru 1 , U 1 DC , o 1 1 , JbHl CULUIv 


noAon 
09680 


14 


09134 


1-5036 


08550 




CM 


E94270+6.CARD 


09692 


46 


02430 


01200 


08560 




BE 


E86440,,, EXIT TO STORAGE ALLOCATION 


no7?A 


15 


09263 


00009 


8570 




TDM 


EXIT+1,9 




49 


09178 


00000 






B 


E94270+50 


09724 








08590 




DORG 


*-3 


09724 




00002 




08600 


BLK1 


DSC 


2,22 


nqlo ? 




00005 


69732 






DSA 


BLK1A 


09731 








08620 




DC 


1,3 


09732 




00001 




08630 


BLK1A 


DSC 


1,0 










08635 


************* ********************************************************* 


09737 




00005 




08640 




DC 


5,17550 


09740 




00003 




08650 




DC 


3,046 






















00005 


■10200 


08660 




DSA 


I OUT 


OQ7AA 




00001 




08670 




DC 


1 , 3 


no7A7 




00002 




08680 


BLK2 


DSC 


2,22 






00005 


69755 






DSA 


BLK2A 


DQ754 




00001 








DC 


1,3 






00001 




8710 


B LK2 A 


DSC 


1,0 


nQ7An 




00005 




08720 




DC 


5 , 17400 


na7A-a 




00003 








DC 


3 , 046 


09768 




00005 


■10200 


nA7An 
ns7^n 




DSA 


IOUT 


09769 




00001 








DC 


1,3 


09770 




00002 




08760 


BLK3 


DSC 


2,22 


09776 




00005 


09778 






DSA 


BLK3A 






00001 








DC 


1,3 


09778 




00001 






BLK3A 


DSC 


1,0 


09783 




00005 




08800 




DC 


5,17450 






00003 








DC 


3,046 


09791 




00005 


40200 


naa^n 




DSA 


IOUT 


09792 




00001 




no 
ORfiin 




DC 


1,3 


09793 




00002 






BLK4 


DSC 


2,22 






00005 


69801 


UBM5U 




DSA 


BLK4A 


09800 




00001 




08860 




DC 


1,3 


09801 




00001 




08870 


BLK4A 


DSC 


1,0 


09806 




00005 




08880 




DC 


5,175 00 


09809 




00003 




08890 




DC 


3,046 


09814 




00005 


40200 


08900 




DSA 


I OUT 


***** 


1620 FORTRAN I I -D 


PHASE 


1-B 




NOVEMBFR, 1966 PAGE ) 


LOCTN 


OP 


P/L 







LABEL 


MNEM 


OPERANDS AND REMARKS 


098 15 




00001 




08910 




DC 


1,3 






00002 




08920 


BLK5 


DSC 


2,22 






00005 


69824 


08930 




DSA 


BLK5A 


09823 




00001 




08940 




DC 


1,3 






00001 




08950 


BLK5A 


DSC 


1,0 


nq«?2 




00005 




08960 




DC 


5,17650 






00003 




08970 




DC 


3,046 






00005 


40200 


08980 




DSA 


IOUT 






00001 




08990 




DC 


1,3 


09839 




00002 




09000 


BLK6 


DSC 


2,22 


09845 




00005 


99847 


09010 




DSA 


BLK6A 


09846 




00001 




09020 




DC 


1,3 


09847 




00001 




09030 


BLK6A 


DSC 


1,0 










09035 


******* 


************** ******** ****************************************** 






00005 




09040 




DC 


5,17600 


OQH55 
09855 




00003 




09050 




DC 


3,043 










09055 












00005 


40200 


09060 




DSA 


IOUT 


noAA 1 




00001 




09070 




DC 


1,3 






00002 




09080 


BLK7 


DSC 


2,22 






00005 


69870 


09 09 




DSA 


BLK7A 


09869 




00001 




091 ?n 




DC 


1,3 


09870 




00001 






BLK7A 


DSC 


1,0 


098 75 




00005 




nqi I ?n 
no i of. 




DC 


5,177 00 


09878 




00003 








DC 


3 ,100 






00005 


62430 


nqi in 

zZ ] t 




DSA 


E86440 


09gg4 




00001 








DC 


1,3 


09889 




00005 


1-5139 


noi An 


URDATA 


DSA 


CHI 






00003 




09 170 




DC 


3,063 


09897 




00005 


45139 


09180 


CDOATA 


DSA 


CHI 


099 00 




00003 




na?n° 




DC 


3,103 


099 05 




00005 


1-5839 


09200 


C5DATA 


DSA 


CHI5 


noo?n 




00003 




09210 




DC 


3,103 




16 


0994 5 


45040 


09220 


MODAFT 


TFM 


*+35,AFTBL+5 


922 


12 


09945 


0006 5 


09230 




SM 


*+23,5,10 


09934 


26 


09952 


00000 


09240 




TF 


*+18, , 


nO^KQ 


11 


00000 


00062 


09250 




AM 


,2,10 




24 


09945 


04431 


09260 




C 


*-13,STAFT 


nQQ7n 


46 


09922 


01100 


09270 




BH 


*-48 




16 


04431 


1-5040 


09280 




TFM 


STAFT , AFTBL+5 




49 


02662 


00000 


noln° 




B 


BEGIN+36 


10001 








no^i n 




DORG 


*-4 


1 0003 




00009 


X2 




ERMES 


DAC 


9, ERROR 003 


10031 




00012 






FMTCST 


DC 


12,465659544163 


1 0033 




00002 


X2 




PLUSS 


DAC 


2, + 3 


10037 




00003 


X2 




ENDCT 


DAC 


3, END 






00040 






SYM 


DS 


40 


: 




00002 




no. 




DS 


2 






00016 




nq^n 




DC 


16,0 


10097 




00000 




09380 


ZER13 


DS 


,*-2 


1 0093 




00000 




09 390 


TENZ 


DS 


, *-6 






00001 




09400 


SINGST 


DC 


1,0 


10101 




00001 






DOTRAN 


DSC 


1,0 


10102 




00001 




09420 


FNTSW 


DSC 


1,0 


10103 




00001 




09430 


FNTSW1 


DSC 


1,0 


10104 




00001 




09440 


FMSW 


DSC 


1,0 


10105 




00001 




09450 


STNOSW 


DSC 


1,0 



1620 FORTRAN I 1-0 PHASE 1-B 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


10106 




00001 




09460 


D IMSW 


DSC 


1 »0 


10107 




00001 




09470 


IFSW 


OSC 


1,0 


10108 




00001 




09480 


CGTO 


DSC 


1,0 


10109 




00001 




09490 


OMM 


DSC 


1»0 


101 10 




00001 




09500 


EQUSW 


DSC 


1 ,0 


10111 




00001 




09510 


CALLSW 


DSC 


1 ,0 


101 12 




00001 




0952O 


COMSW 


DSC 


1 »0 


101 13 




00001 




09530 


IOSW 


DSC 


1 ,0 


101 14 




00001 




09540 


SUBSW 


DSC 


1 ,0 


10200 








09550 




DORG 


10200 


10200 


16 


02359 


69793 


09560 


I OUT 


TFM 


FM0N+35,BLK4 


10212 


17 


02324 


40200 


09570 




BTM 


FMON, I OUT 


10224 


16 


02359 


■69747 


09580 


NONARA 


TFM 


FMON+35 ,BLK2 


10236 


17 


02324 


40224 


09590 




BTM 


FMON , NONARA 


1 0248 


16 


02359 


€9724 


09600 


DIM 


T FM 


FMON+35 , BLK 1 


1 0260 


17 


02324 


40248 


09610 




BTM 


FMON , D I M 


1 02 72 


1 6 


02359 






COMMON 




FMON +3 5 , B LK 1 


10284 


17 


02324 


40272 


09630 




BTM 


FMON , COMMON ' 


10296 


16 


02359 


69839 


09640 


I p 


TFM 


FMON+35 ,BLK6 


10308 


17 


02324 


40296 


09650 




BTM 


FMON , I F 


10320 


16 


02359 


69839 


09660 


GOTO 


TFM 


FMON+35, BLK6 


10332 


17 


02324 


40320 


09670 




BTM 


FMON ,GOTO 


10344 


16 


02359 


69839 


0968O 


CALL 


TFM 


FMON+35, BLK6 


10356 


17 


02324 


40344 


09690 




BTM 


FMON ,CALL 


10368 


16 


02359 


69839 


09700 


RETURN 


TFM 


FMON +3 5, BLK 6 


10380 


17 


02324 


40368 


09710 




BTM 


FMON , RETURN 


10392 


16 


02359 


69724 


09720 


FORMAT 


TFM 


FMON+35, BLK1 


10404 


17 


02324 


40392 


09730 




BTM 


FMON , FORMAT 


10416 


16 


02359 


69793 


09740 


ooo 


TFM' 


FMON+35 ,BLK4 


1042 8 


17 


02324 


40416 


09750 




BTM 


FMON ,D00 


1044 


16 


02359 


€9770 


09760 


ASCAN 


TFM 


FMON+35, BLK3 


10452 


17 


02324 


40440 


09770 




BTM 


FMON , ASCAN 


10464 


16 


02359 


•69770 


09780 


OUTSC 


TFM 


FMON+35, BLK3 


10476 


17 


02324 


40464 


09790 




BTM 


FMON, OUTSC 


10488 


16 


02359 


69816 


09800 


DKIO 


TFM 


FMON+35, BLK5 


10500 


17 


02324 


40488 


09810 




BTM 


FMON ,DK 10 










09R20 


** INITIALIZATION PHASE 1-B 


10512 


44 


10544 


02228 


09830 


PRSCAN 


BNF 


PRSCN1,LIST,, TOTAL LISTING 


10524 


16 


02496 


64098 


09840 




TFM 


RETR +6.INITAL,, PRINT OUT THE 


1 0536 


49 


02454 




09850 




B7 


FL IP 


1 0544 


32 


004 5 7 


00000 


09860 


PRSCN1 


SF 


00457 


10556 


15 


004 75 


00002 


09R70 




TDM 


00475,2,,, SET SYSCAL 


1 0568 


43 


10588 


02424 


09880 




BD 


*+20, INDIV 


10580 


49 


10636 


00000 


09890 




B 


* + 56 


10588 








09900 




DORG 


*-3 


10588 


44 


10636 


02424 


09910 




BNF 


*+4R, INDIV 


106 00 


16 


02719 


00041 


09920 




TFM 


BA+1 ,41, 10 


10612 


16 


02755 


00041 


09930 




TFM 


BA+37,41, 10 


10624 


16 


09891 


00068 


09940 




TFM 


URDATA+2,08 , 10 


10636 


26 


06999 


02377 


09950 




TF 


SMTLU+11,STBL 


10648 


12 


06999 


00064 


09960 




SM 


SMTLU+11,4, 10 


10660 


22 


07011 


02377 


09970 




S 


SMTLU+23,STBL 


106 72 


11 


07011 


00065 


09980 




AM 


SMTLU+23,05 , 10 


10684 


26 


07023 


02377 


09990 




TF 


SMTLU+35,STBL 


106 96 


12 


07023 


00066 


10000 




SM 


SMTLU+35,6,10 


10708 


22 


06448 


02252 


10010 




S 


FXORF L-5 ,K LNG 


10720 


21 


06913 


02250 


10020 




A 


PLUS+47,FLIMG 



1620 FORTRAN I 1-0 PHASE 1-B 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNFM 


OPERANDS AND REMARKS 


10732 


43 


02766 


02424 


10030 




BD 


BA+48, INDIV 


10744 


49 


02638 


00000 


10040 




B 


BEG I NA 


10752 








10050 




DORG 


*-3 


16000 








10060 




DORG 


16000 


16000 




00002 




10070 


PHBDAT 


DSC 


2,22 


16006 




00005 


4-6008 


10080 




DSA 


PHBDDA 


16007 




00001 




10090 




DC 


1,3 


16008 




00001 




10100 


PHBDDA 


DSC 


1,0 


16013 




00005 




10110 




DC 


5,17200 


16016 




00003 




1012O 




DC 


3,84 


16021 




00005 


62430 


10130 




DSA 


ER6440 


16022 




00001 




10140 




DC 


1 ,a 


16024 


16 


00565 


46047 


10150 


LDPHB 


TFM 


IORT ,*+23 


16036 


49 


00532 


46000 


10160 




B 


IOPT , PHBDAT ,7 


16048 


36 


00012 


00500 


10170 




TRA 




16060 


49 


00012 












16024 








10180 




TCD 


LDPHB 



10200 








10200 


16 


02359 


69793 


102 12 


17 


02324 


40200 


10224 


16 


02359 


69747 


10236 


17 


02324 


40224 


10248 


33 


05675 


00000 


10260 


49 


10512 


00000 


102 72 


33 


05675 


00000 


10284 


49 


11576 


00000 


10296 


16 


02359 


69839 


10308 


17 


02324 


40296 


10320 


16 


02359 


69839 


10332 


17 


02324 


40320 


10344 


16 


02359 


69839 


10356 


17 


02324 


40344 


10368 


16 


02359 


69839 


10380 


17 


02324 


40368 


10392 


33 


14382 


00000 


10404 


49 


12166 


00000 


10416 


16 


02359 


69793 


1042 8 


17 


02324 


40416 


1044 


16 


02359 


69770 


10452 


17 


02324 


40440 


104 64 


16 


02359 


69770 


10476 


17 


02324 


40464 


10488 


16 


02359 


69816 


10500 


17 


02324 


40488 


10512 


17 


04696 


00066 


10524 


24 


10081 


11575 


10536 


46 


04300 


01400 


10548 


47 


04300 


01200 


10560 


31 


15138 


15150 


10572 


15 


10106 


00001 


10584 


45 


10620 


15141 


105 96 


17 


09384 


00672 



10190 
10200 
10210 
10220 
10230 
10240 
10250 
10260 
10270 
10280 
10290 
10300 
10310 
10320 
10330 
10340 
10350 
10360 
10370 
10380 
10390 
10400 
10410 
10420 
10430 
10440 
10450 
10460 
10470 
10480 
10490 
10500 
10510 
10520 
10530 
10540 
10550 
10560 
10570 
10580 



OUT OF CORF BLOCK 1 

DIMENSION 

COMMON 

FORMAT 



CONTAINS THE FOLLOWING 



****** 
DIMEN 



DORG 


IOUT 




TFM 


FMON+35, BLK4 


,,IOUT 


BTM 


FMON , IOUT 




TFM 


FMON+35, BLK2 




BTM 


FMON , NONARA 




CF 


STSN 


, ,,DIM 


B 


DIMEN 




CF 


STSN 


, ,, COMMON 


B 


COMMEN 




TFM 


FMON+35, BLK6 


, , I F 


BTM 


FMON, IF 




TFM 


FMON+35, BLK6 


, ,G0TO 


BTM 


FMON ,GOTO 




TFM 


FMON+35, BLK6 


,,CALL 


BTM 


FMON ,CALL 




TFM 


FMON+35, BLK6 


, , RETURN 


BTM 


FMON , RETURN 




CF 


FREOSW 


, , , FORMAT 


B 


FOMAT 




TFM 


FMON +35 , B LK4 


, ,D00 


BTM 


FMON ,D00 




TFM 


FMON+35, BLK3 , , 


ASCAN 


BTM 


FMON , ASCAN 




TFM 


FMON+35, BLK3, , 


OUTSC 


BTM 


FMON , OUTSC 




TFM 


FMON+35, BLK5 


, ,DKIO 


BTM 


FMON ,DK 10 




ENTRY TO DECOMPOSE 


DIMENSION 


BTM 


COL NAM, 6, 10 




C 


SYM.ENSION+10 




BV 


ERR01 




BNE 


ERR01 




TR 


CHI-1,CHI+11 




TDM 


DIMSW.l 




BNR 


*+36,CHI+2 




BTM 


ERROR, 072, 9, 





***** 



1620 FORTRAN II-D 



PHASE 1-B NOVEMBER, 1966 PAGE 20 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


10608 


17 


09384 


00370 


10590 




BTM 


ERR0R>270,9 




10620 


14 


15139 


00040 


10600 




CM 


CHI ,40, 10 




10632 


47 


10608 


01100 


10610 




BNH 


*-24 




10644 


14 


15139 


00069 


10620 




CM 


CHI ,69, 10 




10656 


46 


10608 


01100 


10630 




BH 


DIM1+12 




10668 


17 


05738 


i-0680 


10640 




BTM 


CS0RN,*+12 




10680 


43 


11484 


02611 


10650 


SET DM 


BD 


DIM2 , INSW , , 


BRANCH IF SYM WAS ALREADY IN 


10692 


15 


07295 


00001 


10660 




TDM 


SMCNT»1,6, 




10704 


26 


08519 


07245 


10670 




TF 


ADSAVE ,SMADD ,11, 




10716 


12 


07242 


00095 


10680 




SM 


SMAOD ,05 , 10 




10728 


16 


07243 


€0001 


10690 




TFM 


SMADD, 1 ,67 




10 740 


14 


15139 


00054 


10700 




CM 


CHI ,24, 10 




10752 


47 


10596 


01200 


10710 




BNE 






10764 


32 


10596 


00000 


10720 




SF 


D I M 1 




10776 


32 


10680 


00000 


10730 




SF 


SETDM 




10788 


31 


15138 


15140 


10740 


SO 


TR 


CHI— 1,CHI+1, , 


SHIFT OFF LEFT PAPN OR COMMA 


10800 


14 


15139 


00069 


10750 




CM 


CHI, 69, 10, 


TEST FOR ABSOLUTE 


10812 


47 


10860 


01100 


10760 




BNH 


or: 1 Url £T£t 




10824 


17 


05446 


i-0836 


10770 




BTM 


C S TNO , *+ 1 2 




10836 


14 


10081 


00090 


10780 


SETDM2 


CM 


S YM ,0,10 




10848 


47 


10872 


01200 


10790 




BNE 


* + 24 




10860 


17 


09384 


00-179 


10800 




BTM 


ERROR, 179 ,9 




10872 


11 


08519 


00065 


10810 




AM 


ADSAVE, 5, 10 




10884 


15 


10077 


ooooe 


10820 




TDM 


SYM-4,0, 1 1 




108 96 


33 


10078 


00000 


10830 




CF 


SYM-3 




10908 


26 


08519 


10081 


10840 




TF 


ADSAVE , S YM i 6 




10920 


11 


02372 


00095 


10850 




AM 


NXLOC ,5, 10 




10932 


26 


02620 


10081 


10860 




TF 


TEMP ,SYM 




10944 


14 


15139 


00064 


10870 




CM 


CHI ,04, 10 




10956 


46 


11116 


01200 


10880 




BE 


MOVDIM 




10968 


14 


15139 


00053 


10890 




CM 


CHI ,23, 10 




10980 


47 


10596 


01200 


10900 




BNE 


DIM1 




10992 


44 


11072 


10596 


10910 




BNF 


GEND IM,DIM1,, 


TEST FOR SECOND DIMENSION 


1 1 004 


15 


07295 


00002 


10920 




TDM 


SMCNT , 2 , 6 




11016 


23 


0724? 


2620 


10930 


SETDM3 


M 


SMADD , T EMP , 6 




11028 


32 


00095 


00000 


10940 




SF 


95 




11040 


26 


07242 


00099 


10950 




TF 


SMADD, 99, 6, 




11052 


33 


10596 


00000 


10960 




CF 


I M 1 




11064 


49 


10788 


00000 


10970 




B 


SD 




11072 








10980 




DORG 


* — 3 




11072 


44 


10860 


10680 


10990 


GEND IM 


BNF 


SETDM2+24 , SETDM , , 


TEST FOR THIRD DIMENSION 


11084 


15 


07295 


00003 


110OO 




TDM 


S MC NT , 3 , 6 




11096 


33 


10680 


00000 


11010 




CF 






11108 


49 


11016 


00000 


11020 




B 


S ET DM3 




11116 








11030 




DORG 


*-3 




111 16 


23 


0724? 


02620 


11040 


MOVDIM 


M 


SMADD , T EMP ,6 




11128 


32 


00095 


00000 


11050 




SF 


95 




11140 


26 


07245 


00099 


11060 




TF 


SMADD , 99 , 6 




11152 


31 


15138 


15140 


11070 




TR 


CHI-1 , CH I + 1 




11164 


25 


11185 


07295 


HOflO 




TD 


DIMTP , SMCNT ,11 




11176 


14 


11185 


06092 


11090 




CM 


DIMTP, 0002, 810 




11185 




00000 




11 100 


OIMTP 


DS 


,*-2 




11188 


46 


11276 


01100 


11110 




BH 


SFTDM4, , , 


3 DIMENSIONS 


11200 


46 


11232 


01200 


11 120 




BE 


*+32,, , 


2 DIMENSIONS 


11212 


16 


08519 


60001 


11130 




TFM 


ADSAVE ,1,67, 


1 DIMENSION 


11224 


49 


11396 


00000 


11 140 




R 


S ETDM5+ 12 




11231 








11150 




DORG 


*-4 





1620 FORTRAN II-D PHASE 1-B NOVEMBER, 1966 PAGF 21 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11232 


26 


02620 


08519 


11160 




TF 


TEMP, ADSAVE 




11244 


12 


02620 


00095 


11170 




SM 


TEMP, 5 , 10 




11256 


26 


08519 


02626 


11180 




TF 


ADSAVE, TEMP, 611 




11268 


49 


11384 


00000 


11190 




B 


SFTDM5 




11275 








11200 




DORG 


*-4 




112 76 


26 


02620 


08 519 


11210 


SETDM4 


TF 


TEMP, ADSAVE 




11288 


12 


08519 


00065 


11220 




SM 


ADSAVE ,5, 10 




11300 


12 


02620 


00040 


11230 




SM 


TEMP, 10, 10 




11312 


23 


02629 


08 519 


11240 




M 


TEMP, ADSAVE, 611 




11324 


32 


00095 


00000 


11250 




SF 


95 




11336 


26 


02375 


00099 


11260 




TF 


NXLOC ,99,6 




11348 


26 


08519 


02626 


11270 




TF 


ADSAVE, TEMP ,611 




11360 


26 


02626 


02375 


11280 




TF 


TFMP, NXLOC ,611 




11372 


21 


02629 


08519 


11290 




A 


TEMP, ADSAVE, 611 




11384 


11 


02626 


00091 


11300 


SETDM5 


AM 


TEMP, 1 ,610 




11396 


11 


02372 


00095 


11310 




AM 


NXLOC, 05, 10 




11408 


26 


02375 


07245 


11320 




TF 


NXLOC , SMADD, 611 




11420 


45 


11440 


15141 


11330 




BNR 


*+20,CHI+2 




11432 


49 


26 38 


00000 


11340 




B 


BFGINA 




11440 








11350 




DORG 


*-3 




1 1 44 


14 


15139 


00053 


11360 




CM 


CHI ,23, 10 




11452 


47 


10596 


01200 


11370 




BNE 


DIM1 




11464 


31 


15138 


15140 


11380 




TR 


CHI-1 ,CHI+1 




11476 


49 


10620 


00000 


11390 




B 


DIM1+24 




11484 








11400 




DORG 


*-3 




11484 


11 


07919 


00062 


11410 


DIM2 


AM 


MODAD ,2,10 




11496 


45 


11552 


07919 


11420 




BNR 


DIM3,M0DAD,11, 


TEST IF DIM VAR WAS PLACED IN TABLE BY 


11508 


21 


02372 


05965 


11430 




A 


NXLOC ,SMLNG, , 


SUBROUTINE OK FUNCTION STATEMENT 


11520 


26 


02375 


10081 


11440 




TF 


NXLOC , SYM, 6 




11532 


26 


07245 


02372 


11450 




TF 


SMADD , NXLOC ,6 




11544 


49 


10692 


00000 


11460 




B 


SETDM+12 




11552 








11470 




DORG 


*-3 




11552 


17 


09384 


00571 


11480 


DIM3 


BTM 


ERROR ,271,9 




11565 




00006 


X2 


11490 


ENS ION 


DAC 


6, ENS I ON 












11500 


****** 


DECODE COMMON STATEMENTS ****** 


11576 


17 


04696 


00093 


11510 


COMMEN 


BTM 


C0LMAM,3,10 




11588 


24 


10081 


12165 


11520 




C 


SYM ,M0N+4 




11600 


46 


04300 


01400 


11530 




BV 


ERR01 




11612 


47 


04300 


01200 


11540 




BNE 


ERR01 




11624 


31 


15138 


15144 


11550 




TR 


CHI-1, CHI+5 




11636 


15 


10112 


oooot 


11560 




TDM 


COMSW, 1, 11. 




11648 


14 


15139 


00040 


11570 




CM 


CHI ,40, 10 




11660 


47 


09496 


01100 


11580 




BNH 


COMER 




11672 


14 


15139 


00069 


11590 




CM 


CHI, 69, 10 




11684 


46 


09496 


01100 


11600 




BH 


COMER 




11696 


17 


05738 


H708 


11610 




BTM 


CS0RN,*+12 




11708 


14 


15139 


00054 


11620 




CM 


CHI ,24, 10 




11720 


46 


09496 


01200 


11630 




BE 


COMER 




11732 


43 


11876 


02611 


11640 




BD 


COMIN.INSW,, 


BRANCH IF VARIABLE WAS PREVIOUSLY USED 










11650 




IF VARIABLE WAS NOT 


DEFINED THEN IT MUST BF SIMPLE VARIABLE 


11744 


11 


02372 


00065 


11660 


COMA 


AM 


NXLOC, 5, 10 




11756 


26 


02375 


02262 


11670 




TF 


NXL0C,C0MADD,6, 


MOVE OBJ TIME COMMON ADDRESS TO SYM AREA 


11768 


43 


11800 


06453 


11680 




BD 


*+32,FXORFL 




11780 


22 


02262 


02298 


11690 




S 


COMADD , FP2 , , 


ADJ COMMON ADDRESS FOR FLOAT VARIABLE 


11792 


49 


11812 


00000 


11700 




B 


* + 20 




11800 








11710 




DORG 


*-3 




11800 


22 


02262 


02252 


11720 




S 


COMADD, KLNG, , 


ADJ COMMON ADDRESS FOR FIX VARIABLE 



***** 


1620 FORTRAN 1 1 -D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 22 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11812 


45 


11832 


15141 


11730 


COMAB 


BNR 


*+20,CHI+2 




11824 


49 


02638 


00000 


11740 




B ■ 


BEG I N A 




11832 








11750 




DORG 


*-3 




11832 


14 


15139 


00023 


11760 




CM 


CHI ,23, 10, 


TEST FOR MORE LIST ELEMENTS 


11844 


47 


09496 


01200 


11770 




BNE 


COMER 




11856 


31 


15138 


15140 


11780 




TR 


CHI-1, CHI+1 




11868 


49 


11648 


00000 


11790 




B 


COMMEN+72 




11876 








11800 




DORG 


*-3 












11810 


****** 


COME HERE IF SIMPLE VARIABLE WAS IN TABLE ****** 


11876 


44 


1 1900 


07295 


11820 


COMIN 


BNF 


*+24,SMCNT, 11 




11888 


1 7 


09 384 


00*73 


11830 




BTM 


ERROR, 373, 9, 


VARIABLE WAS PREVIOUSLY PLACED IN COMMON 


11900 


44 


1 1 888 


07919 


11840 




BNF 


*-12,M0DAD, 11, 


WAS IT PREVIOUSLY EOUIVALENCED 


11912 


32 


07295 


00000 


11850 




SF 


SMCNT,,6, 




11924 


21 


02372 


05965 


11860 


COMINA 


A 


NXLOC , SML NG 




11936 


26 


07242 


02372 


11870 




TF 


SMADD,NXL0C,6, 


MOVE NEW SYMBOL ADDRESS INTO TABLE 


11948 


26 


02372 


10081 


11880 




TF 


NXLOC, SYM, 6 




11960 


49 


11744 


00000 


1 1 890 




B 


COMA, ,, 


branch to place common address in table 


11968 








11900 




DORG 


*-3 












11910 


****** 


RETURN FROM SYM TABLE 


LOOK UP WHEN VARIABLE WAS DIMENSIONED 


11968 


44 


11988 


07295 


11920 


COME 


BNF 


*+20,SMCNT, 11 




11980 


49 


11888 


00000 


11930 




B 


COMIN+12, , , 


VARIABLE PREVIOUSLY PLACED IN COMMON 


11988 








11940 




DORG 


*-3 




11988 


44 


11888 


07919 


11950 




BNF 


COMIN+12, MODAD, 11, 


TEST IF VAR WAS PREVIOUSLY EOUIVALENCED 


12000 


32 


07295 


00000 


11960 




SF 


SMCNT , ,6, 




12012 


12 


07295 


00097 


11970 




SM 


SMCNT.07,10 




12024 


43 


12056 


06453 


11980 


COMC 


BD 


* + 32 jFXORFL 




12036 


26 


1 2079 


02298 


11990 




TF 


C0MM+11.FP2 ,, 


SET UP TO MULTIPLY NUMBER 


12048 


49 


12068 


00000 


12000 




B 


COMM 




12056 








12010 




DORG 


*-3 




12056 


26 


12079 


02252 


12020 




TF 


*+23,KLNG 




12068 


1 3 


07295 


00000 


12030 


COMM 


MM 


SMCNT, ,6, 


GEN. NO. OF LOCATIONS FOR ARRAY 


12080 


32 


00095 


00000 


12040 




SF 


95 




12092 


22 


02262 


00099 


12050 




S 


COMADD , 99 , , 


UPDATA COMMON ADDRESS 


12104 


47 


12148 


01300 


12060 




BN 


C0MER3 




121 16 


26 


07295 


02262 


12070 




TF 


SMCNT , COMADD, 6 




12128 


21 


07295 


12079 


12080 




A 


SMCNT,C0MM + 11,6 




12140 


49 


11812 


00000 


12090 




B 


COMAB, , , 


THIS ADDRESS IS THE LOW ORDER DIGIT OF 


12147 








12100 




DORG 


*-4, , , 


FIRST ELEMENT. 


12148 


17 


09 384 


00474 


12110 


C0MER3 


BTM 


ERROR, 474, 9, 


COMMON EXCEEDS CORE SIZE 


12161 




00003 


X2 


12120 


MON 


DAC 


3, MON 












12130 


**** 


UNIT RECORD FORMAT OUTPUT **** 


12166 


43 


12198 


02611 


12140 


FOMAT 


BD 


*+32,INSW 




12178 


15 


07242 


00001 


12150 




TDM 


SMADD, 1,6 




12190 


49 


12230 


00000 


12160 




B 


F0MAT1 




12198 








12170 




DORG 


*-3 




12198 


43 


12230 


07242 


12180 




BD 


F0MAT1 , SM ADD ,11 




12210 


16 


09373 


00277 


12190 




TFM 


SPGS+11,277,9 




12222 


49 


09 290 


00000 


12200 




B 


SPERR+12,,, 


ERROR 27 


12230 








12210 




DORG 


*-3 




12230 


], 




■1 51 3 7 


12220 


F0MAT1 


TFM 


X+ll ,CHI-2 




12242 


1 1 


Q 1 Q 


00092 


12230 




AM 


X+ll ,2,10 




12254 




12242 




12240 




BNR 


*-12,X+ll ,11, 


SCAN AHEAD FOR RECORD MARK 


12266 


43 


12370 


02424 


12250 




BD 


F0RM99, INDIV 




12278 


11 


02937 


1-5285 


12260 




AM 


CKRM-1,CHI+146,711 




12290 


11 


02937 


00092 


12270 




AM 


CKRM-1,2,10 




12302 


46 


12346 


01200 


12280 




BE 


* + 44 




12314 


16 


08183 


00060 


12290 




TFM 


X+ll ,0,610 
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1620 FORTRAN II-D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


12326 


11 


08183 


00062 


12300 




AM 


X+ll ,2,10 




12338 


49 


12290 


00000 


12310 




B 


*-48 




12346 








12320 




DORG 


*-3 




12346 


15 


10104 


00001 


12330 




TDM 


FMSW, l 




12358 


17 


04876 


00090 


12340 




BTM 


CKCNTU.O, 10 




12370 


16 


08183 


00037 


12350 


F0RM99 


TFM 


X+ll ,37,610 




12382 


31 


08183 


06066 


12360 




TR 


X+ll , AVOID, 


6 


12394 


31 


15138 


15150 


12370 




TR 


CHI-1, CHI+11 




12406 


14 


15139 


00060 


12380 




CM 


CHI ,0, 10 




12418 


47 


12450 


01200 


12390 




BNE 


* + 32 




12430 


31 


15138 


15140 


12400 




TR 


CHI-l.CHI+l 




12442 


49 


12406 


00000 


12410 




B 


*-36 




12450 








12420 




DORG 


*-3 




12450 


14 


15139 


00024 


12430 




CM 


CHI ,24, 10 




12462 


46 


12486 


01200 


12440 




BE 


* + 24 




12474 


17 


09384 


00375 


12450 




BTM 


ERROR, 375, 9, 


LEFT PAR EN DOES NOT FOLLOW FORMAT 


12486 


17 


09084 


09128 


12460 




BTM 


PUT, 128,8, 


FORMAT 


12498 


17 


09084 


06-124 


12470 




BTM 


PUT, 124,8, 


LEFT PAR EN 


12510 


11 


02615 


00091 


12480 




AM 


PARCNT, 1, 10 




12522 


16 


14453 


09145 


12490 




TFM 


WIDTH, 145,8, 


INITALIZE WIDTH CHECK 










12491 


********************************************************* ********-*#*** 


12534 


16 


14512 


09998 


12495 




TFM 


SCALE, 998, 8 


,,,SET ASSUMED SCALE FACTOR 










12499 










12546 


43 


12570 


02230 


12500 




BD 


*+24,B IGPRT 




12558 


12 


14453 


00024 


12510 




SM 


WIDTH, 24, 10 




12570 


31 


15138 


15140 


12520 


F0RM1 


TR 


CHI-1 ,CHI+1 




12582 


14 


15139 


00090 


12530 




CM 


CHI ,0, 10 




12594 


46 


12570 


01200 


12540 




BE 


*-24 




12606 


14 


15139 


00041 


12550 




CM 


CHI ,41 , 10, 




12618 


46 


12910 


01100 


12560 




BH 


F0RM2 




12630 


47 


12674 


01300 


12570 




BL 


SLASH 




12642 


17 


09084 


06144 


12580 




BTM 


PUT, 144,8, 


A TYPE 


12654 


15 


14389 


00001 


12590 




TOM 


IATYPE.l 




12666 


49 


13082 


00000 


12600 




B 


F0RM3 




12674 








12610 




DORG 


*-3 




12674 


14 


15139 


00021 


12620 


SLASH 


CM 


CHI ,21, 10, 


TEST FOR SLASH 


12686 


46 


13850 


01200 


12630 




BE 


F0RM7 




12698 


14 


15139 


00024 


12640 




CM 


CHI ,24, 10 




12710 


46 


14110 


01200 


12650 




BE 


F0RM4 




12722 


14 


15139 


00020 


12660 




CM 


CHI r 20, 10, 


TEST FOR SCALE FACTOR 


12734 


46 


12782 


01200 


12670 




BE 


FORMER + 12 • 




12 746 


14 


15139 


000-10 


12680 




CM 


CHI ,10, 10 




12758 


46 


12782 


01200 


12690 




BE 


*+24, , , 


INVALID FORMAT SPECIFICATION 


12770 


17 


09384 


00*75 


12700 


FORMER 


BTM 


ERROR ,375,9, 




12782 


31 


15138 


15140 


12710 




TR 


CHI-1, CHI+1 




12794 


14 


15139 


00090 


12720 




CM 


CHI ,0, 10 




12806 


46 


12782 


01200 


12730 




BE 






12818 


14 


15139 


0006-9 


12740 




CM 


CHI ,69, 10, 


SHIFT OF SCALE FACTOR 


12830 


46 


12782 


01100 


12750 




BH 


*-48 




12842 


14 


15139 


00057 


12760 




CM 


CHI, 57, 10, 


TEST FOR P 


12854 


47 


12770 


01200 


12770 




RNE 


FORMER 




12866 


31 


15138 


15140 


12780 


PTYPE 


TR 


CHI-1, CHI+1 




12878 


14 


15139 


00060 


12790 




CM 


CHI ,0, 10 




12890 


47 


12990 


01200 


12800 




BNE 


FTYPE 




12902 


49 


12866 


00000 


12810 




B 


*-36 




12910 








12820 




DORG 


*-3 




12910 


14 


15139 


00069 


12830 


F0RM2 


CM 


CHI ,69, 10 
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***** 


1620 FORTRAN 1 1 -0 


PHASE 


1-B 




NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


12922 


46 


13982 


01100 


12840 




BH 


F0RM8 


12934 


14 


15139 


00049 


12850 




CM 


CHI, 49, 10, TEST FOR I TYPE 


12946 


47 


12990 


01200 


12860 




BNE 


* + 44 


12958 


17 


09084 


0&149 


12870 




BTM 


PUT, 149,8,1 TYPE 


12970 


15 


14389 


00001 


12880 




TDM 


I ATYPE , 1 


12982 


49 


13082 


00000 


12890 




g 


F0RM3 


12990 








12900 




DORG 


*-3 


12990 


14 


15139 


00046 


12910 


FTYPE 


CM 


CHI, 46, 10, TEST FOR F TYPE 


13002 


47 


13034 


01200 


12920 




BNE 


* + 32 


13014 


17 


09084 


0&146 


12930 




BTM 


PUT, 146, 8, F TYPE 


13026 


49 


13070 


00000 


12940 




B 


F0RM3-12 


13034 








1 2950 




DORG 


*-3 


13034 


14 


15139 


00045 


12960 


ETYPE 


CM 


CHI, 45, 10, TEST FOR E TYPE 


13046 


47 


12770 


01200 


12970 




BNE 


FORMER 










12975 


******#********** **#*#«*iS*****#* ******************************** ****** 


13058 


16 


1 3432 


1-3434 


12980 




TFM 


EBRAN+6 ,EBRAN+8 










12985 








13070 


15 


14389 


00000 


12990 




TDM 


IATYPE,0 


13082 


31 


15138 


15140 


13000 


F0RM3 


TR 


CHI-1 ,CHI+1 


13094 


14 


15139 


oooeo 


13010 




CM 


CHI ,0, 10 


13106 


46 


1 3082 


01200 


13020 




BE 


*-24 


131 18 


14 


15139 


00069 


13030 




CM 


CHI ,69,10 


13130 


47 


12770 


01100 


13040 




BNH 


FORMER 


13142 


15 


10106 


00001 


13050 




TDM 


DIMSW,1,, SET SWITCH TO RFTURN FROM LSTNO 


131 54 


17 


05446 


43166 






BTM 


CSTN0,*+12,, COLLECT NUMBER 


13166 


14 


10081 


00060 


1 3070 




CM 


SYM.O, 10 


13178 


46 


12770 


01200 


1 3080 




BE 


FORMER 










13085 


********************************************************************** 


13190 


26 


14516 


10081 






TF 


SCALE+4,SYM 










1 3095 








13202 


44 


13262 


14382 


13100 




BNF 


*+60,FRE0SW, , TEST IF SPEC WAS MULT SPECIFICATION 


132 14 


33 


14382 


00000 


13110 




CF 


FREOSW 


13226 


23 


10081 


14393 


13120 




M 


SYM,SETFR0+11 




32 


00096 


00000 






SF 


96 


13250 


26 


10081 


00099 


13140 




TF 


SYM,99 


13262 


17 


14464 


oooeo 


13150 




BTM 


WIDCK.O, 10 










13155 


******************************** ************************************** 


132 74 


43 


13590 


14389 


13160 




BD 


F0RM5-12 , I ATYPE 










13165 








13286 


14 


15139 


oooeo 


13170 




CM 


CHI ,0, 10 


132 98 


47 


13330 


01200 


13180 




BNE 


* + 32 


13310 


3 1 


15138 


1 5140 


13190 




TR 


CHI-1, CHI+1 


13322 


49 


13286 


00000 


13200 




B 


*-36 


13330 








13210 




DORG 


*-3 


13330 


14 


15139 


oooe3 


13220 




CM 


CHI ,3, 10 


13342 


47 


12770 


01200 


13230 




BNE 


FORMER 










13240 


*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$ $$.$$$$$$$$: *$*$$$$$$ 


13354 


31 


15138 


15140 


13250 




TR 


CHI-1, CHI+1 


13366 


14 


15139 


oooeo 


13260 




CM 


CHI, 0,10 


13378 


46 


13354 


01200 


13270 




BE 


*-24 


13390 


14 


15139 


00069 


13280 




CM 


CHI ,69, 10 


13402 


47 


12770 


01100 


13290 




BNH 


FORMER 


13414 


17 


05446 


43426 


13300 




BTM 


CSTN0,*+12 










13301 


ft****************************************^^************************** 


1 3426 


49 


13554 




13301 


EBRAN 


B 7 


EOK 


13434 


26 


14520 


14516 


13302 




TF 


SCALE+8,SCALE+4 


13446 


22 


14520 


14512 


13303 




S 


SC AL E +8 , SC AL E ,,,CALCULATE SCALE FACTOR 


***** 


1620 FORTRAN II-D 


PHASE 


1-B 




NtlVFCiBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13458 


22 


14520 


10081 


13304 




S 


SCALE+8 ,SYM 


13470 


12 


14520 


00066 


13305 




SM 


SCALE+8,6,10 


13482 


47 


13530 


01100 


13306 




BNH 


EOK-24 


134 94 


27 


09084 


14520 


13307 




BT 


PUT , SCALE +8 


13506 


17 


09084 


0»147 


1 3308 




BTM 


PUT, 147,8 


13518 


22 


14516 


14520 


1 3309 




S 


SCALE +4, SCALE +8 


13530 


17 


09084 


06145 


1330A 




BTM 


PUT, 145, 8 




16 


13432 


43554 


1 3 30 B 




TFM 


EBRAN+6, EOK 


13554 


27 


09084 


14516 


1 330C 


EOK 


BT 


PUT , SCALE+4 


13566 


17 


09084 


oei()3 


1 330D 




BTM 


PUT, 103,8 


13578 


26 


14516 


10081 


1 330 E 




TF 


SCALE+4, SYM 


13590 


27 


09084 


14516 


1 3310 




BT 


PUT, SCALE+4 










13315 








13602 


14 


15139 


oooeo 


1 3320 


F0RM5 


CM 


CHI, 0,10 


13614 


47 


13646 


01200 


13330 




BNE 


* + 32 


13626 


31 


15138 


15140 


13340 




TR 


CHI-1, CHI+1 


13638 


49 


13602 


00000 


13350 




B 


F0RM5 


13646 








13360 




DORG 


*-3 


13646 


14 


15139 


00064 


13370 


F0RM51 


CM 


CHI, 4, 10, 


13658 


47 


13782 


01200 


13380 




BNE 


FCMA 


13670 


17 


09084 


oeio4 


13390 




BTM 


PUT, 104, 8, RIGHT PAR EN 


13682 


31 


15138 


15140 


13400 




TR 


CHI-1, CHI+1 


13694 


12 


02615 


oooei 


13410 




SM 


PARCNT, 1, 10 


13706 


47 


13602 


01200 


13420 




BNZ 


F0RM5 


13718 


14 


15139 


oooeo 


13430 




CM 


CHI ,0, 10 


13730 


46 


13762 


01200 


13440 




BE 


* + 32 


13742 


45 


12770 


15141 


13450 




BNR 


FORMER, CHI+2 


13754 


49 


02626 


00000 


13460 




B 


BEGIN 


13762 








13470 




DORG 


*-3 


13762 


31 


15138 


15140 


13480 




TR 


CHI-1 , CHI+1 


13774 


49 


13718 


00000 


13490 




B 


*-56 


13782 








13500 




DORG 


*-3 


13782 


14 


15139 


00053 


13510 


FC MA 


CM 


CHI ,23, 10 


13 794 


47 


13826 


01200 


13520 




BNE 


* + 32 


13806 


17 


09084 


0&123 


13530 




BTM 


PUT, 123, 8, COMMA 


13818 


49 


12570 


00000 


13540 




B 


FORM 1 


13826 








13550 




DORG 


*-3 


13826 


14 


15139 


0002-1 


13560 




CM 


CHI ,21 , 10 


13838 


47 


12606 


01200 


13570 




BNE 


FORM1+36 


13850 


17 


09084 


oei2i 


13580 


F0RM7 


BTM 


PUT, 121, 8, DIVIDE 


13862 


16 


14453 


06145 


13590 




TFM 


WIDTH, 145,8, 


13874 


43 


13898 


02230 


13600 




BD 


*+24,BIGPRT 


13886 


12 


14453 


0002-4 


13610 




SM 


WIDTH, 24, 10 


13898 


31 


15138 


15140 


13620 




TR 


CHI-1, CHI+1 


13910 


14 


15139 


00060 


13630 




CM 


CHI ,0, 10 


13922 


46 


13898 


01200 


13640 




BE 


*-24 


13934 


14 


15139 


0002-4 


13650 




CM 


CHI ,24, 10 


13946 


46 


14110 


01200 


13660 




BE 


F0RM4 


13958 


14 


15139 


00069 


13670 




CM 


CHI ,69, 10 


13970 


47 


13646 


01100 


13680 




BNH 


F0RM51 


13982 


15 


10106 


00001 


13690 


F0RM8 


TDM 


DIMSW, 1 


13 994 


17 


05446 


44006 


13700 




BTM 


CSTN0,*+12 


14006 


14 


15139 


oooeo 


13710 




CM 


CHI ,0, 10 


14018 


47 


14050 


01200 


13720 




BNE 


* + 32 


14030 


31 


15138 


15140 


13730 




TR 


CHI-1, CHI+1 


14042 


49 


14006 


00000 


13740 




B 


*-36 


14050 








13750 




DORG 


*-3 



***** 1620 FORTRAN I!-t> 



PHASE 1-B NOVEMBER, 1966 PAGE 26 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14050 


14 


15139 


000*7 


13760 




CM 


CHI, 57, 10, TEST FOR SCAL t FACTOR 










13765 


**********#*********#**#***********##**********************#********** 


14062 


46 


14490 


01200 


13770 




BE 


PSCALE 










13775 








14074 


14 


15139 


0002-4 


13780 




CM 


CHI ,24, 10 


14086 


47 


14142 


01200 


13790 




BNE 


FORMX 


14098 


27 


09084 


10081 


13800 




BT 


PUT.SYM 


14110 


11 


02615 


00091 


13810 


F0RM4 


AM 


PARCNT,1,10 


14122 


17 


09084 


09124 


13820 




BTM 


PUT, 124, 8, LEFT PAREN 


14134 


49 


12570 


00000. 


13830 




B 


F0RM1 


14142 








13840 




DORG 


*-3 


14142 


14 


15139 


00067 


13850 


FORMX 


CM 


CHI, 67, 10, TEST FOR X SPECIFICATION 


14154 


47 


14210 


01200 


13860 




BNE 


HOLL 


14166 


17 


14464 


00060 


13870 




BTM 


WIDCK, 0,10 


14178 


27 


09084 


10081 


13880 




BT 


PUT.SYM 


14190 


17 


09084 


09147 


13890 




BTM 


PUT, 147, 8, X TYPE 


14202 


49 


13626 


00000 


13900 




B 


FORM5+24 


14210 








13910 




DORG 


*-3 


14210 


14 


15139 


00048 


13920 


HOLL 


CM 


CHI, 48, 10, 


14222 


47 


14382 


01200 


13930 




BNE 


SETFRO 


14234 


17 


14464 


oooeo 


13940 




BTM 


WIDCK, 0,10 


14246 


27 


09084 


10081 


13950 




BT 


PUT.SYM 


14258 


17 


09084 


08148 


13960 




BTM 


PUT, 148, 8, H TYPE 


14270 


31 


15138 


15140 


13970 


HOLLI 


TR 


CHI-1,CHI+1 


14282 


45 


14302 


15141 


13980 




BNR 


*+20,CHI+2 


142 94 


49 


12770 


00000 


13990 




B 


FORMER 


14302 








14000 




DORG 


*-3 


14302 


26 


14337 


15139 


14010 




TF ■ 


*+35,CHI 


14314 


33 


14336 


00000 


14020 




CF ■ 


* + 22 


14326 


17 


09084 


08000 


14030 




BTM 


PUT, ,8, OUTPUT HOLL 


14338 


12 


10081 


00091 


14040 




SM 


SYM,1,10 


14350 


47 


14270 


01200 


14050 




BNZ 


HOLL I 


14362 


45 


13626 


15141 


14060 




BNR 


F0RM5+24.CHI+2 


14374 


49 


12770 


00000 


14070 




B 


FORMER 


14382 








14080 




DORG 


*-3 


14382 


32 


14382 


00000 


14090 


SETFRQ 


SF 


FREOSW 


14382 




00000 




14100 


FREOSW 


DS 


, SETFRO 


14389 




00000 




14110 


IATYPE 


DS 


,*-4 


14394 


27 


09084 


10081 


14120 




BT 


PUT.SYM 


14406 


26 


14393 


10081 


14130 




TF 


SETFRO+11 ,SYM 


14418 


14 


15139 


000S4 


14140 




CM 


CHI ,24, 10, 


14430 


47 


12606 


01200 


14150 




BNE 


F0RM1+36 


14442 


33 


14382 


00000 


14160 




CF 


FREOSW 


14453 




00000 




14170 


WIDTH 


DS 


, * 


144 54 


49 


14110 


00000 


14180 




B 


F0RM4 


14462 








14190 




DORG 


*-3 


14463 




00002 




14200 




DS 


2, 


14464 


22 


14453 


10081 


14210 


WIDCK 


S 


WIDTH, SYM 


14476 


47 


12770 


01300 


14220 




BN 


FORMER 


14488 


42 


00000 


00000 


14230 




BB 




14490 








14240 




DORG 


*-9 










14241 


* * * * * * 


********************************************** ************* ***** 


14490 


26 


14512 


10081 


14241 


PSCALE 


TF 


SCALE, SYM 


14502 


49 


12866 




14242 




B7 


PTYPE 


14512 




00004 


00003 


14243 


SCALE 


DSB 


4,3 










14249 








16000 








14250 




DORG 


16000 



56 



***** 162 o FORTRAN I I-D 
LOCTN OP P/L 



PHASE 1-B 
PG/LN LABEL MNEM OPERANDS AND REMARKS 



NOVEMBER, 1966 



16000 
16012 
16024 
16036 
16000 



10200 
10200 
10212 
10224 
10236 
10248 
10260 
10272 
10284 
102 96 
10308 
10320 
10332 
10344 
10356 
10368 
10380 
10392 
10404 
10416 
10428 
10440 
10452 
10464 
10476 
10488 
10500 
10512 
10524 
10536 
10548 
10560 
10572 
10584 
10596 
106 08 
10620 
10632 
10644 
10656 
10668 
10680 
106 92 
10704 



00565 -16023 

00532 69724 

00012 00500 
00012 



02359 
02324 
15139 
10512 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
02359 
02324 
14028 
04696 
10081 
04300 
13860 
04696 
10081 
04300 
13794 
10081 
13728 
04696 
10081 
04300 
13194 
10081 
14060 



69793 
40200 
00057 
00000 
6-9724 
to 2 48 
99724 
1-0272 
99839 
H)296 
69839 
1-0320 
69839 
1-0344 
89839 
1-0368 
99724 
t0392 
99793 
1-0416 
99770 
1-0440 
99770 
1-0464 
99816 
1-0488 
01200 
00092 
06245 
01400 
01200 
00095 
13859 
01400 
01200 
13793 
01200 
00097 
13727 
01400 
01200 
14489 
01200 



14260 
14270 
14280 

14290 
14300 
14310 
14320 
14330 
14340 
14350 
14360 
14370 
14380 
14390 
14400 
14410 
14420 
14430 
14440 
14450 
14460 
14470 
14480 
14490 
14500 
14510 
14520 
14530 
14540 
14550 
14560 
14570 
14580 
14590 
14600 
14610 
14620 
14630 
14640 
14650 
14660 
14670 
14680 
14690 
14700 
14710 
14720 
14730 
14740 
14750 
14760 
14770 
14780 
14790 
14800 
14810 



BTM 



TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
TFM 
BTM 
NNARAA be 
BTM 
CM 



IORT ,*+23 
IOPT ,BLK1 ,7 



TCD 16000 
OUT OF CORE BLOCK 2 
EQUIVALENCE 
SUB ROUT I NE 
FUNCTION 
CONTINUE 
PAUSE 
STOP 
DEFINE 

DORG IOUT 

TFM FM0N+35.BLK4, , 
FMON, IOUT 
CHI, 57, 10, 
NNARAA 

FM0N + 35,BLK1, , 
FMON, DIM 
FM0N+35.BLK1, , 
FMON , COMMON 
FM0N + 35,BLK6, , 
FMON, IF 

FMON+35,BLK6,, 
FMON, GOTO 
FM0N + 35.BLK6, , 
FMON, CALL 
FM0N+35,BLK6,, 
FMON, RETURN 
FM0N+35.BLK1,, 
FMON, FORMAT 
FM0N+35.BLK4,, 
FMON.DOO 
FM0N+35.BLK3,, 
FMON, ASCAN 
FM0N+35.BLK3,, 
FMON,OUTSC 
FM0N+35.BLK5,, 
FMON, DK 10 
STOPEN 
C0LNAM,2, 10 
SYM, 6245, 8 
ERR01 
PAUSEN 
COLNAM , 5 , 10 
SYM.TINUE+8 
ERR01 
CONTEN 
SYM.CTION+8 
FUNCTA 
COLNAM, 7, 10 
SYM,R0UTN+12 
ERR01 
SUBPA 

SYM,DEFCT+12 
DEFINE 



CONTAINS THE FOLLOWING 



BTM 



BE 
C 

BE 

BTM 

C 

BV 
BE 



CHECK FOR P IN STOP 



57 



***** 


1620 FORTRAN II-D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 


LOCTIM 




P/ L 


Q 


P6/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 










14811 


***************************** 


*********************************** *S*«M 


10716 


24 


10081 


10785 


14812 




C 


SYM,BGTR+12 ,, 


, CHECK FOR BEGIN TRACE 


10728 


47 


10786 


01200 


14813 




BNE 


EOUIVN 




10740 


17 


09084 


06154 


14814 




BTM 


PUT, 154,8 ,, 


, OUTPUT BEGIN TRACE SYMBOL 


10752 


17 


09084 


06140 


14815 




BTM 


PUT ,140,8 




10764 


49 


02626 




14816 




B7 


BEGIN 




10773 




00007 


X2 


14817 


BGTR 


DAC 


7 , INTRACE , 












14818 


















14820 


****** 


ENTER TO DECOMPOSE 


EQUIVALENCE STATEMENTS ****** 


10786 




^ nnat 


00088 


14830 


E0UIVN 


BTM 


C0LNAM,8,10 




10798 






n floo 


14840 




C 


SYM , IVALEN + 14 




10810 


46 


04300 




14850 




BV 


ERR01 




10822 


47 


04300 


1 200 


14860 




BNE 


ERR01 




10834 


3 1 


15138 


1 51 54 


14870 




TR 


CHI-1 ,CHI+15 




10846 


i \ 




UUUuU 


14880 




CF 


STSN 




10858 








14890 


FOR 


TDM 


E0USW,1,11, 


SET SWITCH INDICATING EOUIV STATEMENT 


10870 








14900 




TDM 


PR,,, 


INITIALIZE PR 


10881 




finnni 




14910 




DC 


1 ,3,* 




10882 


14 


1 CI Q 

15139 


00024 


14920 




CM 


CHI ,24, 10 




108 94 


46 


1 09 18 


01200 


14930 




BE 


* + 24, 




10906 








14940 




BTM 


ERROR ,72,9, 




10918 


16 




15139 


14950 




TFM 


SCHI ,CHI 




10930 


11 




00092 


14960 


E01 


AM 


SCHI,2,10 




10942 


1a 


06 04Q 


00040 


14970 




CM 


SCHI ,40,610 




10954 


46 


109 78 


01 100 


14980 




BH 


* + 24 




10966 


1 7 


0938 4 


00-170 


14990 




BTM 


ERROR, 170,9, 


INVALID VAR 


10978 


14 


06049 


00069 


15000 




CM 


SCHI ,69,610 




10990 


46 


10966 


01100 


15010 




BH 


*-24 




11002 


17 


05738 


H014 


15020 




BTM 


CS0RM,*+12, , 


GO TO COLLECT NAME 


11014 


43 


1 1046 


0261 1 


15030 




BD 


*+32,INSW,, 


TEST IF SYM PREVIOUSLY DEFINED 


11026 


1 1 


02372 


00065 


15040 


E83230 


AM 


NXLOC,5,10, 


IF SYM NOT PREV DEFINED, SAVE ROOM FOR 


11038 


49 


11146 


OOOOO 


15050 




B 


E021 , , , 


OFFSET VALUE 


11046 








15060 




DORG 


*-3 




11046 


2f 






15070 




BD 


E021 ,SMCNT, 11 , 


TEST FOR DIM VAR 


11058 




i ii a 




15080 




BNF 


E021 ,M0DAD,11, 


TEST IF SYM WAS PREVIOUSLY EOUIV 


11070 


AA 


1 1 09 


07295 


15090 




BNF 


*+20 ,SMCNT,11, 


TEST IF VAR WAS IN COMMON 


11082 


49 


11 146 


000 00 


15100 




B 


E021 




11090 








15110 




DORG 


*-3 




11090 


2 1 


02372 


5965 


15120 




A 


NXLOC , SMLNG 




11102 


26 


02 37? 


10081 


15130 




TF 


NXL0C,SYM,6, 


WfiUF CVM MAMP TMTfl TARI C 
HI 1 V C oil' N A l v l t i I'l M 1 1 A r5 L n 


11114 


26 


07242- 


2 372 


15140 




TF 


SMADD, NXLOC ,6, 


MOVE NEW SYM ADD INTO TABLE 


11126 


49 


110 26 


00000 


15150 




B 


E83230 




11134 








15160 




DORG 


*-3 




11134 


I 7 


09384 




15170 




BTM 


ERROR ,171,9, 


INVALID NAME USED IN FUNCTION 


11146 


43 




1 n? 


15180 


F021 


BD 


*-12 ,FNTSW, , 


TEST FOR FUNCTION NAME IN EQUIVALENCE 


11158 




07295 


oono l 


15190 






Cmtmt i in 
oriLi"! t if iU 




11170 


45 






15200 




BNR 


*+20, SMCNT, 11 , 


TEST FOR DUMMY PARAMETERS OF SUBPROGRA/^ 


11182 


49 


1 1 1 Ji 
11134 


00000 


15210 






E021-12 




11190 








15220 




DORG 


*-3 




11190 




07295 


OOOS 1 


15230 




AM 


SMCNT.Ol, 10 




11202 


45 


11222 


07295 


15240 




BNR 


*+20,SMCNT,ll, 


TEST FOR SUBPROGRAM MA M E IN SUBPROGRAM 


11214 


49 


11134 


00000 


15250 




B 


E021-12 




11222 








15260 




DORG 


*-3 




11222 


12 


07295 


00062 


15270 




SM 


SMCNT , 02 , 10 




11234 


45 


11254 


12651 






BNR 


*+20,PR,, 


TEST FOR FIRST NAME ON LIST 


11246 


49 


11826 


00000 


15290 




B 


E07 




11254 








15300 




DORG 


*-3 




***** 


1620 FORTRAN II-D 


PHASF 


1-B 






NOVEMBFR, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11254 


24 


06451 


06453 


15310 




C 


MODE , F X0RF1. , , 


TEST FOR MIXED EOUIV 


11266 


46 


11314 


01200 


15320 




BE 


* + 48 




11278 


24 


02298 


02252 


15330 




C 


F P2 , KLNG , , 


TEST FOR K EOUAL 'TO F + 2 IN MIXFO EOUIV 


11290 


46 


11314 


01200 


15340 




BE 


* + 24 




11302 


17 


09384 


00*72 


15350 




BTM 


ERROR, 172,9, 




11314 


44 


12274 


07919 


15360 




BNF 


EO22,M0DAD, 11, 


TEST IF SYM HAD BEEN PREVIOUSLY EQUIV 


11326 


44 


11382 


07295 


15370 




BNF 


*+56, SMCNT, 11, 


BRANCH IF SYM IS NOT IN COMMON 


11338 


44 


11362 


12651 


15380 




BNF 


*+24,PR, , 


TFST IF PREVIOUS SYM WAS IN COMMON 


11350 


17 


09384 


00473 


15390 




BTM 


ERROR, 173 ,9 , 


ILLEGAL EQUIVALENCE 


11362 


44 


11350 


126 50 


15400 




BNF 


*-12,PR-l, , 


TFST IF PREV SYM WAS EOUIV 


11374 


49 


11826 


00000 


15410 




B 


E07 




11382 








15420 




DORG 


*-3 




11382 


44 


11770 


08124 


15430 


E024 


BNF 


E04 , DM VAR , , 


TEST FOR DIM VAR, BRANCH IF NOT 


11394 


14 


06049 


00024 


15440 




CM 


SCHI ,24,610 




11406 


47 


11666 


01200 


15450 




BNE 


EOBR+8 




11418 


11 


06049 


00062 


15460 




AM 


SCHI ,2, 10 




11430 


16 


11664 


11678 


15470 




TFM 


FOBR+6 ,E0BR+20 




11442 


14 


06049 


0006-9 


15480 




CM 


SCHI ,69,610 




11454 


46 


11478 


01100 


15490 




BH 


* + 24 




11466 


17 


09384 


00675 


15500 




BTM 


ERROR, 75, 9, 


INCORRECT SUBSCRIPTING 


11478 


16 


10078 


€0000 


15510 




TFM 


SYM-3,0,7 




11490 


16 


11520 


■10077 


15520 




TFM 


*+30,SYM-4 




11502 


11 


11520 


0006 1 


15530 




AM 


*+18,l , 10 




11514 


25 


00000 


06049 


15540 


F023 


TD 


, SCHI, 11, 


COLLECT INDEX 


11526 


11 


0604 9 


00062 


15550 




AM 


SCHI ,2 , 10 




11538 


14 


06049 


00069 


15560 




CM 


SCHI ,69,610 




11550 


47 


11598 


01100 


15570 




BNH 


*+48 




11562 


14 


1 1520 


10081 


1 5580 




CM 


E023+6,SYM 




11574 


47 


11502 


01200 


15590 




BNE 


E023-12 




11586 


17 


09384 


00675 


15600 




BTM 


ERROR ,75,9 




11598 


26 


10081 


11526 


15610 




TF 


SYM,E023+6,11, 




11610 


32 


10077 


00000 


15620 




SF 


SYM-4 




11621 




00000 




15630 


SAVE1 


DS 






11622 


14 


06049 


00064 


15640 




CM 


SCHI ,4 ,610, 


TEST FOR RIGHT PAREN 


11634 


47 


11586 


01200 


1 5650 




BNE 


*-48 




11646 


11 


06049 


00062 


15660 




AM 


SCHI, 2, 10 




11658 


49 


11678 


00000 


15670 


EOBR 


B 


* + 20 




11666 








15680 




DORG 


*-3 




11666 


16 


10081 


60001 


15690 




TFM 


SYM,1, 




11678 


43 


11770 


12651 


15700 




BD 


E04,PR , , 


TEST IF PREVIOUS SYM WAS DIM VAR 


11690 


44 


11710 


12651 


15710 




BNF 


*+20,PR 




11702 


49 


11770 


00000 


15720 




B 


E04 




11710 








15730 




DORG 


*-3 




11710 


44 


11770 


12650 


15740 




BNF 


E04.PR-1 , , 


TEST IF PREVIOUS SYM WAS EOUIV 


11722 


26 


09035 


07242 


15750 




TF 


REF , SMADD, 




11734 


25 


12651 


07295 


15760 




TO 


PR, SMCNT, 11, 




11746 


25 


12650 


07919 


15770 




TD 


PR-1,M0DAD, 11, 


SAVE INDICATORS 


11758 


26 


02620 


10081 


15780 




TF 


TEMP ,SYM , , 


SAVE OFFSET 


11770 


14 


06049 


00064 


15790 


F04 


CM 


SCHI ,4,610, 




11782 


46 


12306 


01200 


15800 




BE 


EOLOOP, , , 


END OF LIST 


11794 


14 


06 049 


0002-3 


15810 




CM 


SCHI ,23,610 




11806 


46 


10930 


01200 


15820 




BE 


E01 




11818 


49 


10906 


00000 


15830 




B 


E01-24 




11826 








15840 




DORG 


*-3 




11826 


25 


06451 


07919 


15850 


E07 


TD 


MODE ,MODAD ,11, 


SET FIX OR FLOAT 


11838 


33 


06451 


00000 


15860 




CF 


MODE 




11849 




00000 




15870 


SAVE3 


DS 


,* 





58 



***** 


1620 FORTRAN II-D 


PHASE 


1-B 






NOVEMBER, 1966 PAGE 


LOCTN 




r / L 


w 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11850 


26 


09035 


07242 


15880 




TF 


RE F , S MA DD » 




11862 


25 


1 2650 


079 19 


15890 




TD 


PR-1 , MOOAD, 11 




11874 


25 


12651 


07295 


15900 




TO 


PR t SMCNT , 1 1 




11886 


43 


11918 


12651 


15910 




BD 




TEST FOR DIM VAR 


11898 


16 


02620 




15920 




TFM 


TFMP , 1 




11910 


49 


1 20 10 


00000 


15930 




B 


E 841 30 




11918 








15940 




DORG 


*-3 




11918 


14 


06049 


00024 


. 15950 




CM 


SCHI ,24,6 10 




11930 


47 


1 1898 


1200 


15960 




BNE 


*— 32 




11942 




06049 


00062 


15970 




AM 






11954 


14 


06 049 


00069 


15980 




CM 


SCHI ,69,610 




11966 


47 


1 1466 


1 100 


15990 




BNH 






11978 






•i 1998 


16000 




TFM 


EOBR+6 t * + 20 




11990 


49 


1 1478 


00000 


16010 




B 


EQ23-36 , > i 


go to collect subscripting 


11998 








16020 




DORG 


* — 3 




11998 


26 


02620 


10081 


16030 




TF 


TEMP t SYM 




12010 


44 


1 2030 


07919 


16040 


E84130 


BNF 


* + 20 jMOO AD , 1 1 1 


TEST IF VAR PREVIOUSLY EOUIVALENCED 


12022 


49 


1 1770 


00000 


16050 




B 


E04 




12030 








16060 




DORG 






12030 


26 


12060 


07295 


16070 




TF 


* + 3 t S MC N T 




12042 


\ \ 


12060 


0006 3 


16080 




AM 


*+18,3»10 




12054 


14 


00000 


00600 


16090 


F84180 


CM 




1 t J 1 lr rKrviUUoLY rUUlV OTn WAo A DADtr 


12066 








16100 




BE 


E04 9 ' 




12078 


43 


1 2230 


07295 


16110 




BD 


E84330, SMCNT, lit 


TFST FOR DIM VAR 


12090 


26 


12125 


0724? 


16120 




TF 


* + 35 , SMADD 1 1 




12102 


\ \ 


12125 


00065 


16130 




AM 


* + 23 , 5 , 10 ' 




12114 


2 1 


02620 


00000 


16140 




A 




GFNFRATE opp^jzy jq PREVIOUS BASF 


12126 


26 


08519 


23 77 


16150 


E84240 


TF 


ADSAVE , STBL 




12138 


22 


085 18 




16160 




S . 


ADSAVE— l»E84180+6 


11, GEN ADDRFSS OF BASE 


12150 


1 1 


085 18 


00061 


16170 




AM 


ADSAVE-1 t 1 , 10 




12162 


26 


09035 


08 519 


16180 




TF 


RE F , ADSAV E 




12174 


1 2 


085 19 


00064 


16190 




SM 


ADSAVE , 04 » 10 




12186 


25 


12650 


08 5 19 


16200 




TD 


PR— 1 »ADSAVE, 11 • 


SAVF FIX OR FLOAT 


12198 


1 1 


08519 


0006 1 


16210 




AM 


"UoWVCl If 1U 




12210 


25 


12651 


08 5 19 


16220 




TD 


PR f ADSAVE tilt 


SAVE DIM INDICATOR 


12222 


49 


1 1770 


nnnnn 


16230 




B 






12230 








16240 




DORG 


*^3 




12230 


1 2 


07242 




16250 


E84330 


SM 


SMADD , 05 ,10 




12242 


26 


1 2265 


07242 


16260 




TF 


* + 23 » SMADD 




12254 


2 1 




00000 


16270 




A 


TEMP , , , 


GFN NEW OFFSET 


12266 


49 


12126 


00000 


16280 




B 


E84240 




12274 








16290 




DORG 






122 74 






1 26 50 


16300 


E022 


BNF 


Cfl5i_15 nn_l 

t Uit 5li ) rK~l ) t 


ENTER FROM E83500, BR TO ERROR IF PRFV 


12286 


44 


1 lfi?6 




16310 




BNF 




SYM WAS EOUIVALENCED OR IN COMMON 


12298 


49 


i ii jsn 


00000 


16320 




B 


E 024— 32 




12306 








16330 




DORG 


*-3 




12306 


16 


06049 


i 51 39 


16340 


FOLOOP 


TFM 


SCHI ,CH I , , 


ENTER HERE AFTFR FOtllV STATEMFNT HAS 


12318 


26 


12 365 


02377 


16350 




TF 


EBASE ,STBL 




12330 


22 


12365 


09035 


16360 




S 


EBASE >REF 




1 2 342 


11 


12364 


0006 1 


16370 




AM 


EBASE-1,1,10 




12354 


32 


12362 


00000 


16380 




SF 


EBASE-3 




12365 




00000 




16390 


FBASE 


DS 






12366 


11 


06049 


00062 


16400 




AM 


SCHI ,2,10, 


BEEN SCANNED ONCE TO DETERMINF BASE 


12378 


17 


05738 


42390 


16410 




BTM 


CS0RN,*+12, 




12390 


44 


13098 


07919 


16420 




BNF 


E84804,MnDAD,ll, 


IF SYM WAS PREV EOUIV IT MUST BE THE 


12402 


24 


07242 


09035 


16430 




C 


SMADD , REF , , 


BASE OF THE PRESENT EOUIV 


12414 


46 


12686 


01200 


16440 




BE 


E84695 




***** 


1620 FORTRAN II-D 


PH ASF 


1-B 






NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABFL 


MNEM 


OPERANDS AND REMARKS 


12426 


43 


12542 


07295 


16450 




BD 


E 84 560, SMC NT ,11, 


TEST FOR DIM VAR 


12438 


26 


085 19 


07242 


16460 




TF 


ADSAVE, SMADD, 11, 




12450 


11 


08519 


00065 


16470 




AM 


ADSAVE ,5, 10, 




12462 


16 


08519 


eooo-i 


164R0 




TFM 


ADSAVE ,1,6711, 




12474 


21 


08519 


02620 


16490 




A 


ADSAVE , TFMP, 6, 


PLACE OFF SET INTO TABLE 


12486 


11 


07242 


00065 


16500 




AM 


SMADD, 5, 10 


12498 


26 


07245 


12364 


16510 




TF 


SMADD,EBASE-1,6 




12510 


44 


12926 


12651 


16520 




BNF 


E84710,PR 




12522 


32 


07295 


00000 


16530 




SF 


SMCNT , ,6 




12534 


49 


12926 


00000 


16540 




B 


F84710 




12542 








16550 




DORG 


*-3 




12542 


14 


06049 


00024 


16560 


F84560 


CM 


SCHI ,24,610 




12554 


46 


12586 


01200 


16570 




BE 


* + 32 




12566 


16 


1008 1 


6000* 


16580 




TFM 


SYM, 1,711 




12578 


49 


12630 


00000 


16590 




B 


* + 52 




12586 








16600 




DORG 


*-3 




12586 


11 


06049 


00062 


16610 




AM 


SCHI ,2 , 10 




12598 


16 


11664 


42618 


16620 




TFM 


EOBR+6 ,*+20 




12610 


49 


11478 


00000 


16630 




B 


E023-36 




12618 








16640 




DORG 


*-3 




12618 


32 


10081 


00000 


16650 




SF 


SYM 




12630 


21 


10081 


02620 


16660 




A 


SYM, TEMP, , 


GFN OFFSET 


12642 


12 


07242 


00065 


16670 




SM 


SMADD, 05, 10 




12651 




00000 




16680 


PR 


DS 


,*-2 




12654 


26 


0724? 


10081 


16690 




TF 


SMADD, SYM, 6, 


MOVE OFFSET INTO TABLF 


12666 


11 


07242 


oooto 


16700 




AM 


SMADD, 10, 10 




12678 


49 


12498 


00000 


16710 




B 


E84560-44 




12686 








16720 




DORG 


*-3 




12686 


44 


12 706 


07295 


16730 


F84695 


BNF 


*+20, SMCNT, 11 




12698 


49 


12762 


00000 


16740 




B 


HFRE 




12706 








16750 




DORG 


*-3 




12706 


43 


12762 


07295 


16760 




BD 


HERE, SMCNT, 11 




12718 


26 


08519 


07242 


16770 




TF 


ADSAVE, SMADD, 11 




12730 


11 


08519 


00065 


16780 




AM 


ADSAVE, 5, 10 




12742 


26 


08519 


02620 


16790 




TF 


ADSAVE, TEMP, 6 




12754 


49 


12890 


00000 


16800 




B 


E84710-36 




12762 








16810 




DORG 


*-3 




12762 


14 


06049 


00024 


16820 


HE RF 


CM 


SCHI, 24, 610 




12774 


47 


12834 


01200 


16830 




BNE 


* + 60 




12786 


11 


06049 


00062 


16840 




AM 


SCHI ,2, 10 




12798 


14 


06049 


00064 


16850 




CM 


SCHI ,4,610 




128 10 


4 7 


12786 


01200 


16860 




BNE 


*-24 




12822 


11 


06 049 


00062 


16870 




AM 


SCHI, 2, 10 




12834 


44 


12854 


07295 


16880 




BNF 


*+20, SMCNT, 11 




12846 


49 


12890 


00000 


16890 




B 


E84710-36 




12854 








169 00 




DORG 


*-3 




12854 


12 


07242 


00065 


16910 




SM 


SMADD, 5, 10 




12866 


26 


0724? 


02620 


16920 




TF 


SMADD, TEMP ,6 




12878 


11 


07242 


00065 


16930 




AM 


SMADD, 5, 10 




12890 


11 


07242 


00065 


16940 




AM 


SMADD, 5, 10 




12902 


16 


07242- 


00600 


16950 




TFM 


SMADD, 0,69 




12914 


12 


07242 


00065 


16960 




SM 


SMADD, 5, 10 




12926 


33 


07919 


00000 


16970 


E84710 


CF 


M0DAD,,6, 


CLEAR FLAG INDICATING EOUIV VARIABLE 


12 937 




00000 




16980 


SAVE2 


DS 


, * 




12 938 


14 


06049 


00064 


16990 




CM 


SCHI ,4,610 




12950 


47 


12366 


01200 


17000 




BNE 


E0L0OP+60 




12962 


11 


06049 


00062 


17010 




AM 


SCHI ,2, 10 





60 



*# *** 


1620 FORTRAN II-O 


SE 






MflWPMRCP . 1 QAA 
IMUVCI W 1DCK , L*tOO 


LOCTN 


OP 


P/L 


Q 






MN EM 




12974 


14 


06049 


0002-3 


1 7020 




CM 


SCHI t 23 ,610 


12986 


47 


13042 


01200 


17030 




BNE 


* + 56 


1 2998 


26 


13033 


06049 


\ 705n 






* -4. 3 R cruti 


13010 


11 


13033 


oooei 






AM 


1 lrt 


\ ?n?f 


31 


15138 


00000 


17060 




TR 


CH I - 1 




49 


10858 


00000 


1 7070 




B 


EOR 


13042 












DORG 


* — 3 


1 3042 


26 


13077 


06049 








* + 35 , SCH I 


13054 


11 


13077 


0008-2 


i 7i nn 




AM 


* + 23 i 2 , 10 


1 3066 


45 


13086 


00000 


171 in 




RNR 




13078 


49 


02638 


00000 


1 71 




R 


Qcr T M A 


13086 








171V) 




nnor 




1 3086 


17 


09384 


00672 


17140 




R ' 


copnD 79 O 


1 3098 


14 


06049 


00024 


171 50 


F84804 




SCHI ,24,610 


13110 


47 


12926 


01200 






BNE 




13122 


11 


06049 


00092 


171 70 




AM 


SCH I , 2 , 10 


13134 


14 


06049 


00094 


1 71 80 




CM 


SCHI ,4,610 


13146 


47 


13122 


01200 


17190 




BNE 


*-24 


13158 


11 


06049 


00062 


17200 




AM 


SCHI ,2, 10 


1 31 70 


49 


12926 


00000 


17210 




B 


E84710 


13178 








17220 




DORG 


*-3 


131 79 




00008 


X2 


1 72 30 


I VA L EN 


DAC 


8 , I VALENCE 










17240 


****:(;* 


OUTPUT SUBROUTINE DECLARATION STATEMENT ***** 


13194 


16 


13361 


09135 


172 50 


SUBPA 


TFM 


SUBPUT+11 ,0135,8 


13206 


31 


15138 


15152 


1 7260 






ruT_l rut^l a 
lnl-1 , U n 1 + 1 3 


1 32 18 


43 


13254 


02293 






BD 


* + 36 jSUBFCT 




15 


02293 


00001 


17280 




TDM 


SUBFCT, 1 




43 


13266 


05675 


17290 




BD 


*+24,STSN 




17 


09384 


00370 


17300 




BTM 


ERROR, 370, 9 


1 3266 


44 


13254 


05675 


17310 




BNF 


*-12,STSN 


1 32 78 


15 


10114 


00001 






TDM 


SUBSW, 1 


1 32 90 


14 


15139 


00040 






CM 


CHI ,40, 10 


1 3302 


46 


13326 


01100 


1 734(1 




BH 


* + 24 


1 33 14 


17 


09384 


002-70 


1 73 50 


SDR PI 


BTM 


ERROR, 270, 9, SUB DECLARATION ERROR 


13326 


14 


15139 


0006-9 






CM 


CHI ,69, 10 


13338 


46 


13314 


01100 






BH 


*-24 


1 3350 


17 


09084 


06135 




<i 1 IR Dl IT 
o UD r U 1 


BTM 


PUT, 0135,8, OUTPUT SUBROUTIMF SYMBOL 


1 3362 


32 


07068 


00000 






SF 


OUTSW 


133 74 


17 


05738 


3:3386 


17400 




BTM 


CSORN,*+12 


13386 


11 


07242 


00064 


1 7410 




AM 


SMA0D,04,10 


13398 


15 


0724? 


00000 


1 7420 




TOM 


SMA0D,,6 


13409 




00001 




17430 




DC 


1,3,* 


13410 


26 


02243 


10081 


X 7440 




TF 


SAVSYM,SYM 


13422 


45 


13458 


15141 






BNR 


*+36,CHI+2 


13434 


44 


02626 


02293 


17460 




BNF 


BEGIN, SUBFCT 


13446 


17 


09384 


00371 


1 7470 




BTM 


ERROR ,371,9 


13458 


14 


15139 


00034 


1 7480 




CM 


CHI ,24, 10 


13470 


46 


13494 


01200 


1 7490 




BE 


* + 24 


13482 


17 


09384 


00371 


17500 




BTM 


ERRnR,371,9 


13494 


17 


09084 


09124 


17510 




BTM 


PUT, 124, 8, LEFT PAREN 


13506 


31 


15138 


15140 


17520 




TR 


CHI-1 ,CHI+1 


135 18 


14 


15139 


00040 


1 7530 


SUBP2 


CM 


CHI ,40, 10 


13530 


47 


1348 2 


01100 


17540 




BNH 


SUBP2-36 


13542 


14 


15139 


00069 


17550 




CM 


CHI ,69, 10 


13554 


46 


13482 


01100 


17560 




BH 


SUBP2-36,,, TFST FOR SYMBOLIC ARGUFMEMTS 


13566 


32 


07068 


00000 


17570 




SF 


OUTSW, 


13578 


17 


05738 


■13590 


17580 




BTM 


CS0RN,*+12,, OUTPUT ARGUEMENT 



6Z 





1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER , 1966 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13590 


43 


13482 


02611 


17590 




BD 


SUBP2-36, INSW , , ERROR IF ARGUEMFNT WAS IN 


13602 


11 


07242 


00093 


17600 




AM 


SMADD , 3 , 10 


13614 


15 


0724? 


00000 


17610 




TDM 


SMADD.,6 


13625 




00001 




17620 




DC 


1,3,* 


13626 


14 


15139 


00033 


17630 




CM 


CHI ,23, 10 


13638 


47 


13670 


01200 


17640 




BNE 


* + 32 


13650 


17 


09084 


0912 3 


17650 




BTM 


PUT, 123, 8, COMMA 


13662 


49 


13506 


00000 


17660 




B 


SUBP2-12 


13670 








17670 




DORG 


*-3 


13670 


14 


15139 


0006-4 


17680 




CM 


CHI ,4, 10 


13682 


47 


13482 


01200 


17690 




BNE 


SUBP2-36 


13694 


17 


09084 


06104 


17700 




BTM 


PUT, 104, 8, RIGHT PAR EN 


13706 


49 


02626 


00000 


17710 




B 


BEGIN 


13714 








17720 




DORG 


*-3 


13715 




00007 


X2 


17730 


ROUTM 


DAC 


7, ROUTINE 










17740 


****** 


OUTPUT FUNCTION DECLARATION STATEMENTS ****** 


13728 


31 


15138 


15148 


17750 


FUNCTA 


TR 


CHI-1, CHI+9 


13 740 


16 


13361 


08-136 


17760 




TFM 


SUBPUT+11, 136,8 


13752 


43 


13254 


02293 


1777 




BD 


SUBPF-24, SUBFCT 


13764 


15 


02293 


0000-1 


17780 




TDM 


SUBFCT, 1,11 


13776 


49 


13242 


00000 


17790 




B 


SUBPF-36 


13784 








17800 




DORG 


*-3 


13785 




00005 


X2 


17810 


CT ION 


DAC 


5,CTI0N 










17820 




OUTPUT CONTINUE STATEMENT ****** 


13794 


43 


13818 


02610 


17830 


COMTEN 


BD 


*+24,N0IND 


13806 


17 


09440 


00574 


17840 




BTM 


ERR0R2,574,9, UMNUMBERFD CONTINUF STATEMENT 


13818 


17 


09084 


09127 


17850 




BTM 


PUT, 127, 8, CONTINUE 


13830 


17 


09084 


09140 


17860 




BTM 


PUT, 140,8 , DUMMY 


13842 


49 


02626 


00000 


17870 




B 


BEGIN 


13850 








17880 




DORG 


*-3 


1385 1 




00005 


X2 


17890 


TIMUE 


DAC 


5,TINUE 










17900 


**** 


OUTPUT PAUSE STATEMENT **** 


13860 


31 


15138 


15142 


17910 


PAUSEN 


TR 


CHI-1, CHI +3 


13872 


17 


09084 


06126 


17920 




BTM 


PUT, 126, 8, PAUSE 


13884 


17 


09084 


09140 


17930 




BTM 


PUT, 140, 8, DUMMY 


13896 


45 


13916 


15141 


17940 




BNR 


*+20,CHI+2 


13908 


49 


02626 


00000 


17950 




B 


BEGIN 


13916 








17960 




DORG 


*-3 


13916 


14 


15139 


00069 


17970 


PAUS 


CM 


CHI ,69, 10 


13928 


46 


13960 


01100 


17980 




BH 


* + 32 


13940 


17 


09440 


00-573 


17990 




BTM 


ERR0R2 ,573,9, CHARACTER AFTER PAUSE NOT NUMFRIC 


13952 


49 


02626 


00000 


18000 




B 


BEGIN 


13960 








18010 




DORG 


*-3 


13960 


17 


0908 4 


06140 


18020 




BTM 


PUT, 140,8, DUMMY 


13972 


25 


13995 


15139 


18030 




TD 


*+23,CHI 


13984 


17 


09084 


09000 


18040 




BTM 


PUT, 0,8 


13996 


31 


15138 


15140 


18050 




TR 


CHI-1, CHI+1 


14008 


45 


13972 


15141 


18060 




BNR 


*-36,CHI+2 


14020 


49 


02626 


00000 


18070 




B 


BEGIN 


14028 








18080 




DORG 


*-3 










18090 


**** 


OUTPUT STOP STATEMENT **** 


14028 


31 


15138 


15140 


18100 


STOPEN 


TR 


CHI-1, CHI+1 


14040 


17 


09084 


06125 


18110 




BTM 


PUT, 125,8, STOP 


14052 


49 


13884 


00000 


18120 




B 


PAUSEN+24 


14059 








18130 




DORG 


*-4 


14060 


31 


15138 


15152 


18140 


DEFINE 


TR 


CHI-1, CHI + 13,, SHIFT OFF I NED I SK 


14072 


33 


05675 


00000 


18150 




CF 


STSM 



63 



***** 


1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14084 


43 


14502 


02293 


18160 




BO 


ERR60+12.SUBFCT 


14096 


43 


14502 


02384 


18170 




BO 


ERR60+12 , MULDEF 


141 08 


15 


02384 


00001 


18180 




TDM 


MULDEF, 1 


14120 


14 


15139 


00024 


18190 




CM 


CHI, 24, 10, CHECK FOR LEFT PAREN 


141 32 


47 


14490 


01200 


18200 




BNE 


ERR44 


14144 


31 


15138 


15140 


18210 




TR 


CHI-1 ,CHI +1 , , SHIFT OFF LEFT PAREN 


14156 


14 


15139 


00069 


18220 




CM 


CHI, 69, 10 


14168 


47 


14490 


01100 


1 8230 




BNH 


ERR44 


14180 


17 


14548 


00003 


18240 




BTM 


CLDGT, 03, 10, COLLECT Nl 


14192 


32 


10080 


00000 


18250 




SF 


SYM-1 


1 42 04 


14 


10081 


000*0 


18260 




CM 


SYM,50, 10 


142 16 


46 


14490 


01100 


1 8270 




BH 


ERR44,,, Nl GREATER THAN 50 




26 


02233 


10081 


18280 




T F 


Nl , S YM 


14240 


14 


15139 


00093 


1 8290 




CM 


CHI ,23 , 10 


14252 


47 


14490 


1200 


18300 




BNE 


ERR44 


14264 


3 1 


15138 


1 5140 


18310 




TR 


CHI-1 ,CHI+1 


14276 


23 


02240 


022 33 


18320 




M 


W,N1 


14288 


14 


00099 


00100 


18330 




CM 


99,0100,8 


14300 


15 


02243 


00002 


18340 




TDM 


RECLG , 2 


143 12 


46 


14336 


01100 


18350 




BH 


* + 24 


14324 


15 


02243 


0000 1 


18360 




TDM 


RECLG, 1 


14336 


14 


00099 


06200 


18370 




CM 


99,0200,8 


14348 


46 


14490 


01100 


18380 




BH 


ERR44 , , , EXCEEDS TWO SECTORS 


14360 


14 


15139 


00069 


1 8390 




CM 


CHI ,69, 10 


1 43 72 


47 


14490 


01100 


1 8400 




BNH 


ERR44 


1 4384 


17 


14548 


00096 


18410 




BTM 


CLDGT, 06, 10, COLLECT N2 


14396 


32 


10077 


00000 


18420 




SF 


SYM-4 


1 44 08 


26 


02238 


10081 


1 8430 




TF 


N2 , SYM 


14420 


14 


10081 


20000 


18440 




CM • 


SYM, 20000 


14432 


46 


14490 


01100 


18450 




BH 


ERR44 


14444 


14 


15139 


00094 


1 8460 




CM 


CH I , 04 , 10 


14456 


47 


14490 


01200 


18470 




BNE 


ERR44 


14468 


49 


02638 


00000 


1 8480 




B 


BEGINA 


14476 








18490 




OORG 


*-3 


1 44 77 




00007 


X2 


1 8500 


DEFCT 


DAC 


7, I NED I SK 


14490 


16 


02243 


ooeoo 


18510 


ERR60 


TFM 


RECLG, 000, 9 


14502 


25 


14537 


02367 


18520 




TD 


*+35 , JAY 


14514 


17 


09440 


00670 


18530 




BTM 


ERRQR2 ,670,9 


14526 


15 


02367 


00000 


18540 




TDM 


JAY,*-* 


14538 


49 


02638 


00000 


18550 




B 


BEGINA 


14545 








18560 




DORG 


*-4 


14490 




00000 




18570 


ERR44 


DS 


,ERR60 










18580 


*** 


COLLECT DIGITS SUBROUTINE *** 










18590 


* 




* 










18600 


* 


BTM CLDGT, XX, 10, XX = NO. OF DIGITS TO 










18610 


* 




* 


14546 




00002 




18620 




DS 


2 


14548 


43 


14580 


15139 


18630 


CLDGT 


BD 


*+32 ,CHI 




31 


15138 


15140 


1 8640 




TR 


CHI-1, CHI+1 


1 


49 


14548 


00000 


18650 




B 


*-24 


l !c«n 








1 8660 




DORG 


*-3 


14580 


16 


10069 


eoooo 


1 8670 




TFM 


SYM-12,0 


14592 


16 


14670 


1:0069 


18680 




TFM 


CLDGT 2 +6 , SYM- 12 


14604 


12 


14547 


00061 


18690 


CLDGT1 


SM 


CLDGT-1, 1, 10 


14616 


46 


14708 


01200 


18700 




B2 


XCLDGT 


14628 


14 


15139 


00069 


18710 




CM 


CHI ,69, 10 


14640 


47 


14708 


01100 


18720 




BNH 


XCLDGT 


***** 


1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14652 


11 


14670 


00061 


1 8730 




AM 


*+18,l,10 


14664 


25 


00000 


15139 


18740 


CLDGT2 


TD 


,CHI 


14676 


31 


15138 


15140 


18750 




TR 


CHI-1, CHI+1 


14688 


45 


14604 


15141 


18760 




BNR 


CLDGT1 ,CHI+2 


14700 


49 


14490 


00000 


18770 




B 


ERR44 


14708 








18780 




DORG 


*-3 


14708 


26 


10081 


14676 


1 8790 


XCLDGT 


TF 


SYM,CLDGT2+6, 11 


14720 


42 


00000 


00000 


1 8800 




BB 




14722 








18810 




DORG 


*-9 










18820 


* 


DEND * 


16000 








18830 




DORG 


16000 


16000 


16 


00565 


•16023 


18840 




TFM 


IORT ,*+23 


16012 


49 


00532 


69747 


18850 




B 


I0PT,BLK2,7 


16024 


36 


00012 


00500 


1 8860 




TRA 




16036 


49 


00012 












16000 








18870 




TCD 


16000 










18880 


* 


OUT OF CORE BLOCK 3 CONTAINS THE FOLLOWING 










18890 


* 


OUTSC 












18900 


* 


ASCAN 




10200 








18910 




DORG 


I OUT 


102 00 


16 


02359 


69793 


18920 




TFM 


FM0N+35,BLK4, , IOUT 


10212 


17 


02324 


10200 


18930 




BTM 


FMON, IOUT 


10224 


16 


02359 


69747 


18940 




TFM 


FM0N+35,BLK2 


102 36 


17 


02324 


1-0224 


18950 




BTM 


FMON , NON AR A 


10248 


16 


02359 


69724 


18960 




TFM 


FMON+35, BLK1,, DIM 


1 0260 


17 


02324 


10248 


18970 




BTM 


FMON, DIM 


102 72 


16 


02359 


69724 


18980 




TFM 


FMON+35.BLK1,, COMMON 


10284 


17 


02324 


10272 


18990 




BTM 


FMON, COMMON 


10296 


16 


02359 


69839 


19000 




TFM 


FMON+35, BLK6,, IF 


10308 


17 


02324 


10296 


19010 




BTM 


FMON, IF 


1 0320 


16 


02359 


69839 


19020 




TFM 


FM0N+35,BLK6,, GOTO 


1 0332 


17 


02324 


10320 


19030 




BTM 


FMON, GOTO 


1 0344 


16 


02359 


69839 


19040 




TFM 


FMON+35, BLK6, , CALL 


1 0356 


17 


02324 


10344 


19050 




BTM 


FMON, CALL 


10368 


16 


02359 


69839 


19060 




TFM 


FMON+35, BLK6,, RETURN 


10380 


17 


02324 


10 368 


19070 




BTM 


FMON, RETURN 


1 0392 


16 


02359 


69724 


19080 




TFM 


FMON+35, BLK1,, FORMAT 


1 0404 


17 


02324 


10392 


19090 




BTM 


FMON, FORMAT 


10416 


16 


02359 


69793 


19100 




TFM 


FMON+35, BLK4, , DO STMNT 


1 042 8 


17 


02324 


10416 


19110 




BTM 


FMON.DOO 


1 044 


44 


12094 


02609 


19120 




BNF 


ASC1A iTRIND,, ASCAN 


1 0452 


49 


12058 


00000 


19130 




B 


ASCAN1 


1 0464 


43 


10884 


10100 


19140 




BD 


SCI ,SINGST, , OUTSC 


1 04 76 


49 


10512 


00000 


191 50 




B 


0UTSC1 


10488 


16 


02359 


69816 


19160 




TFM 


FMON + 35, BLK5, , DK I 


10500 


17 


02324 


10488 


19170 




BTM 


FMON , DK 1 










19180 


**** 


OUTPUT SUBSCRIPTING CODE 


10512 


26 


02620 


07242 


19190 


0UTSC1 


TF 


TEMP , SMADD ,11 


10524 


25 


10677 


0729* 


19200 




TD 


D IMNO , SMC NT , 1 1 


10536 


33 


10677 


00000 


19210 




CF 


DIMNO 


10545 




00002 




19220 


DIMNOT 


OS 


2,*-2 


10548 


26 


10545 


10677 


19230 




TF 


DIMNOT, DIMNO 


10560 


33 


10620 


00000 


19240 




CF 


SC22 




31 


11920 


11989 


19250 




TR 


Al-3 » MASK f i SET UP WORK AREA 


10584 


16 


10934 


11919 


19260 




TFM 


PA1 ,Al-4 


10596 


16 


10782 


11931 


19270 




TFM 


PA2.A2-4 


10608 


16 


11038 


11943 


19280 




TFM 


PI , 1-12 



, 1966 PAGE 34 



64 



65 



***** 



1620 FORTRAN 1 1 -D 



PHASE 1-B . NOVEMBER r 1966 PAGE 36 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


10620 


1 1 


10934 


00064 


19290 


SC22 


AM 


PA1 ,4, 10 


10632 


1 1 


10782 


00064 


19300 




AM 


PA2,4, 10 


10644 


1 1 


1 1038 


00042 


19310 




AM 


PI r 12 1 10 


10656 


31 


15138 


15140 


19320 




TR 


CHI-1 tCHI+1 


10668 


12 


10677 


oeoei 


19330 




SM 


DIMNO, 0001.810 


106 77 




00002 




19340 


OIMNO 


DS 


2,*-2 


10680 


14 


15139 


00069 


19350 




CM 


CHI, 69, 10 


10692 


47 


109 76 


01100 


19360 




BNH 


ALFAT 


1 0704 


15 


10106 


00001 


19370 




TDM 


DIMSW , 1 


10716 


17 


05446 


1-0728 


19380 




BTM 


CSTN0,*+12 


10728 


15 


10106 


00000 


19 390 




TDM 


DIMSW ,0 


10740 


14 


15139 


000-14 


19400 




CM 


CHI , 14, 10 


10752 


46 


10928 


01200 


19410 




BE 


SC3 




1 5 


10106 


00000 


19420 


SC4 


TDM 


D I MS W , 


1 0776 


26 


10782 


1008 1 


19430 




TF 


PA2 , S YM 


10782 




00000 




19440 


PA2 


DS 


, *— 5 


1 0788 


44 


10824 


10620 


19450 




BNF 


*+36,SC22 , 


1 0800 


33 


10620 


00000 


19460 




CF 


SC22 


10812 


32 


1078€ 


00000 


19470 




SF 


PA2 , ,6 


1 0824 


14 


15139 


00053 


19480 


SC5 


CM 


CHI ,23, 10 


1 0836 


46 


1 06 20 


1 200 


19490 




BE 


SC22 


? nsin 


1a 


in* qa 


00064 


19500 




C M 


CHI ,4, 10 


1 0860 


46 


10896 


01200 


19510 




BE 


*+36 


10872 


1 7 


09384 


00375 


19 520 




BTM 


ERROR , 75 , 9 


1 0884 


1 7 


09384 


00*72 


19530 


SCI 


BTM 


ERROR, 272 ,9 


108 96 


3 1 


15138 


1 5140 


19540 




TR 


CHI-1, CHI+1 


10908 


43 


10872 


10677 


19550 




BD 


SC1-12, DIMNO 


10920 


49 


11164 


00000 


19560 




B 


SC9 


10928 








19570 




DORG 


*-3 


10928 


26 


10934 


10081 


19580 


SC3 


TF 


PA1 ,SYM 


10934 




00000 




19590 


PA1 


DS 


,*-5 


10940 


31 


15138 


1 5140 


19600 




TR 


CHI-1, CHI+1 


10952 


14 


15139 


00069 


19610 




CM 


CHI ,69, 10 


1 0964 


46 


10872 


1 100 


19620 




BH 


SC1-12 


10976 


14 


15139 


00040 


19630 


ALFAT 


CM 


CHI ,40 , 10 


10988 


47 


10872 


01100 


19640 




BNH 


SC1-12 


1 1 000 


1 7 


05 738 


1-1012 


19650 




BTM 


CSORN , *+ 12 


11012 


43 


11032 


06453 


19660 




BD 


* + 20 ,FXORFL 


11024 


49 


10872 


00000 


19670 




B 


SC1-12,, , FLOATING 










19680 




DORG 


*— 4 


11032 


26 


1 1038 


07241 


19690 




TF 


P I , SMADD-1 






00000 




19 700 


P I 


DS 


,*-5 


11 044 


2 


15139 


00040 


19710 




CM 


CHI ,10, 10 


1 1 056 


46 


11104 


1 200 


19720 




BE 


*+48 


11068 


14 


15139 


0002-0 


19730 




CM 


CHI ,20, 10 


11080 


4 7 


10824 


01200 


19740 




BNE 


SC5 


1 1 092 


32 


1 0620 


00000 


19750 




SF 


SC22 


1 1 1 04 




15138 


1 5140 


19760 




TR 


CHI-1 , CHI+1 


11116 


14 


15139 


00069 


19770 




CM 


CHI ,69, 10 


11128 


47 


10872 


01100 


19780 




BNH 


SC1-12 








0000 1 


19790 




TDM 


D IMSW , 1 


11152 


17 


05446 


40764 


19800 




BTM 


CSTM0,SC4 


11164 


16 


11230 


41939 


19810 


SC9 


TFM 


MOVE IT+6.D1-12 


11176 


13 


10545 


00065 


19820 


CALC 


MM 


DIMNOT,05,10 


11188 


21 


02620 


00099 


19830 




A 


TFMP , 99 


11200 


13 


10545 


00012 


19840 




MM 


DIM NO T , 12, 10 


11212 


21 


11230 


00099 


19850 




A 


MOVFIT+6,99 



FLOATING VARIABLE US ED IN SUBSCRIP 



1620 FORTRAN II-D PHASE 1-B 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND RE 


11224 


21 


00000 


02626 


19860 


MOVE IT 


A 


, TEMP, 11 


11236 


12 


10545 


oooei 


19870 




SM 


DIMMOT.l, 10 


11248 


46 


11292 


01200 


19880 




BZ 


*+44 


11260 


12 


26 20 


00065 


19890 




SM 


TEMP, 05, 10 


11272 


12 


11230 


00012 


19900 




SM 


MOVEIT+6, 12, 10 


11284 


49 


11224 


00000 


19910 




B 


MOVF/lT 


11291 








19920 




DORG 


*-4 


11292 


22 


11987 


11951 


19930 




S 


04, Dl 


11304 


23 


11975 


11943 


19940 




M 


03, C2 


11316 


32 


00092 


00000 


19950 




SF 


92 


11328 


21 


11987 


00099 


19960 




A 


D4,99 


11340 


23 


11963 


11939 


19970 




M 


D2 ,B2 


11352 


32 


00092 


00000 


19980 




SF 


92 


11364 


21 


11987 


00099 


19990 




A 


D4,99 


11376 


21 


11987 


11935 


20000 




A 


D4,A2 


11388 


23 


11975 


11931 


20010 




M 


D3 ,C1 


11400 


32 


00092 


00000 


2 0020 




SF 


92 


11412 


26 


11975 


00099 


20030 




TF 


D3,99 


11424 


23 


11963 


11927 


2 0040 




M 


02, Bl 


11436 


32 


00092 


00000 


200 50 




SF 


92 


11448 


26 


1 1963 


00099 


20060 




TF 


02,99 


11460 


13 


11923 


08-001 


20070 




MM 


Al, 00001, 8 


11472 


26 


11951 


00099 


20080 




TF 


Dl ,99 


11484 


16 


11519 


41987 


20090 




TFM 


IND1 ,04 


11496 


16 


11538 


41980 


20100 




TFM 


IND2 ,D4-7 


11508 


44 


11544 


11519 


20110 


TONY 


BNF 


*+36, IND1 


11519 




00000 




20120 


IND1 


DS 




11520 


33 


11519 


00000 


20130 




CF 


IND1 , ,6 


11532 


15 


11538 


00009 


20140 




TDM 


IND2,9,11 


11538 




00000 




20150 


IND2 


DS 


,*-5 


11544 


12 


11519 


00012 


20160 




SM 


IND1 , 12, 10 


11556 


12 


11538 


00012 


20170 




SM 


IND2,12,10 


11568 


14 


11519 


11951 


20180 




CM 


I NO 1,01,67 


11580 


46 


11508 


01300 


20190 




BNL 


TON Y 


11592 


16 


11038 


41943 


20200 




TFM 


PI , 1-12 


11604 


11 


11038 


00069 


20210 


MV1 


AM 


PI ,9 ,10 


11616 


45 


11636 


11038 


20220 




BNR 


*+20,PI,ll 


11628 


49 


11772 


00000 


20230 




B 


CONT, , , 


11636 








20240 




DORG 


*-3 


11636 


11 


11038 


00063 


20250 




AM 


PI ,3,10 


11648 


14 


11038 


06000 


20260 




CM 


PI, 0,68 


11660 


46 


11692 


01200 


20270 




BE 


MV2 


11672 


11 


10545 


00061 


20280 




AM 


DIMN0T,01, 10 


11684 


49 


11604 


00000 


20290 




B 


MV1 


11692 








20300 




DORG 


*-3 


11692 


26 


11746 


11038 


20310 


MV2 


TF 


MV3+6,PI , , 


11704 


26 


11751 


11038 


20320 




TF 


MV3+11,PI 


11716 


11 


11751 


00061 


20330 




AM 


MV3+11, 1, 10 


11728 


12 


11746 


00041 


20340 




SM 


MV3+6,11,10 


11740 


31 


00000 


00000 


20350 


MV3 


TR 


0,0 


11752 


12 


11038 


00063 


20360 




SM 


PI ,03, 10 


11764 


49 


11616 


00000 


20370 




B 


MV1+12 


11772 








20380 




DORG 


*-3 










20390 


** 


SO = 148 LITERAL 










20400 




S2 = 150 TWO SUBS 


11772 


16 


11807 


06148 


20410 


CONT 


TFM 


L4+ll,0148,8, 


11784 


21 


11807 


10545 


20420 




A 


L4+1 1 ,D IMNOT 



GO TO OUTPUT STRING 



SHIFT OFF SUBSC NOT NEEDED 



;RIPT, SI = 149 ONE SUBSCRIPT 
TS, S3 = 151 THRFF SUBSCRIPTS 
BASE FOR SUBSCRIPT OPERATORS 



67 



***** 


1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER. 1966 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11796 


17 


09084 


60000 


20430 


L4 


BTM 


PUT,0 


11808 


17 


09084 


0&124 


20440 




BTM 


PUT, 124, 8 


11820 


17 


09084 


06140 


20450 




BTM 


PUT, 140,8 


11832 


45 


11876 


1 1944 


20460 


L5 


BNR 


L6.D1-7 


11844 


17 


0908 4 


06 104 


20470 




BTM 


PUT, 104, 8 


11856 


16 


07295 


62219 


20480 




TFM 


SMCNT.2219 


11868 


49 


04835 


00000 


20490 




B 


0UTSCE,,6 


11876 








20500 




OORG 


*-3 


11876 


32 


1 1944 


00000 


20510 


L6 


SF 


Dl-7 


11888 


27 


09084 


1 1947. 


20520 




BT 


PUT, D 1-4 


11900 


31 


1 1944 


1 1948 


20530 




TR 


Dl-7,01-3 


11912 


49 


1 1832 


00000 


20540 




B 


L5 


11920 








20550 




OORG 


*-3 


11923 




00004 




20560 


Al 


DS 


4 


11927 




00004 




20570 


Bl 


DS 


4 


11931 




00004 




20580 


CI 


OS 


4 


11935 




00004 




20590 


A2 


DS 


4 


11939 




00004 




20600 


B2 


DS 


4 


11943 




00004 




20610 


C2 


DS 


4 


11951 




00008 




20620 


Dl 


DS 


8 


11955 




00004 




20630 


I 


DS 


4 


11963 




00008 




20640 


D2 


DS 


8 


11967 




00004 




20650 


J 


DS 


4 


11975 




00008 




20660 


03 


DS 


8 


11979 




00004 




20670 


K 


DS 


4 


11987 




00008 




20680 


D4 


DS 


8 


11988 




0000 1 




20690 




DS 


1 


11992 




00004 




20700 




DC 


4,0001 


11989 




00000 




20710 


MASK 


DS • 


,*-3 


11996 




00004 




20720 




DC 


4,1 


12000 




00004 




20730 




DC 


4,1 


12004 




00004 




20740 




DC 


4,0 


12008 




00004 




20750 




DC 


4,0 


12012 




00004 




20760 




DC 


4,0 


12020 




00008 




20770 




DC 


8,0 


12024 




00004 




20780 




DC 


4,0 


12032 




00008 




20790 




DC 


8,0 


12036 




00004 




20800 




DC 


4,0 


12044 




00008 




20810 




DC 


8,0 


12048 




00004 




20820 




DC 


4,0 


12056 




00008 




20830 




DC 


8,0 


12057 




00001 




20840 




DC 


1,3 










20850 


**** 


ASCAN CODE 


12058 


33 


02609 


00000 


20860 


ASCAN1 


C F 


TR I ND 


12070 


43 


12094 


02610 


20870 




BD 


* + 24 ,N0 IND 


12082 


17 


09440 


00572 


20880 




BTM 


ERR0R2 ,572 ,9 , 


12094 


1 5 


10109 


0000 1 


20890 


ASC1A 


TDM 


OMM , 1 


12106 


14 


151 39 


00040 


209 00 




CM 


CHI , 40 , 10 


12118 


X 


12214 


01100 


20910 




BNH 


AERR 


12130 




}\\^ 


000?0 


20920 




CM 


CHI ,70, 10 


12142 


46 


12214 


1 300 


20930 




BNL 


AERR 


12154 


32 


07068 


00000 


20940 




S F 


OUTSW 


12166 


17 


05738 


42178 


20950 




BTM 


C S ORN , * + 1 2 


12178 


15 


05675 


00000 


20960 




TDM 


STSN 


12190 


14 


15139 


00053 


20970 




C M 


CHI , 33 , 10 


12202 


46 


12226 


01200 


20980 




BE 


* + 24 


12214 


17 


09384 


00376 


20990 


AERR 


BTM 


ERROR ,376 ,9 




1620 FORTRAN I I-D 


PHASE 


1-B 




NOVEMB ER , 1 966 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


12226 


15 


10109 


00000 


21000 




TDM 


OMM ,0 


122 38 


17 


09084 


06-133 


21010 


ASC22 


BTM 


PUT, 133,8,E0UAL 


12250 


16 


14700 


oooeo 


21020 




T FM 


NOPARM ,00,10 


12262 


16 


14644 


t4697 


21030 




TFM 


ASC14+18,FLIST-9 


12274 


31 


15138 


15140 


21040 


IFSCAN 


TR 


CHI-1,CHI+1 


12286 


45 


12310 


15141 


21050 




BNR 


*+24 , CH I +2 


12298 


17 


09384 


00378 


21060 




BTM 


ERROR ,378,9 , MISSING OPERAND 


12310 


14 


15139 


00040 


21070 




CM 


CHI ,40, 10 


12322 


46 


12550 


01100 


21080 




BH 


ASC3 


12334 


14 


15139 


000€0 


21090 




CM 


CHI ,20, 10 


12346 


47 


12390 


01200 


21100 




8NE 


* + 44 


12358 


17 


09084 


08129 


21110 




BTM 


PUT, 129, 8, UNARY MINUS 


12370 


31 


15138 


15140 


21120 




TR 


CHI-1 ,CHI+1 


12382 


49 


12286 


00000 


21130 




B 


IFSCAN+12 


12390 








21140 




DORG 


*-3 


12390 


14 


15139 


00040 


21150 




CM 


CHI, 10, 10 


12402 


46 


12274 


01200 


21160 




BE 


IFSCAN 


12414 


14 


15139 


0002-4 


21170 


ASC4 


CM 


CHI ,24, 10 


12426 


47 


12502 


01200 


21180 




BNE 


ASC6-24 


12438 


43 


12482 


10103 


21190 


ASC23 


BD 


*+44,FNTSWl 


12450 


11 


02615 


00061 


21200 




AM 


PARCNT, 1,10 


12462 


17 


09084 


06124 


21210 




BTM 


PUT, 124, 8, LEFT PAR EN 


12474 


49 


12274 


00000 


21220 




B 


IFSCAN 


12482 








21230 




DORG 


*-3 


12482 


11 


14698 


00061 


21240 




AM 


TPARCT, 1, 10 


12494 


49 


12462 


00000 


21250 




B 


ASC23+24 


12502 








21260 




DORG 


*-3 


12502 


14 


15139 


00063 


21270 




CM 


CHI ,3, 10 


12514 


47 


12298 


01200 


21280 




BNE 


IFSCAN+24 


12526 


14 


15141 


00069 


21290 


ASC6 


CM 


CHI+2,69, 10 


12538 


47 


12298 


01100 


21300 




BNH 


IFSCAN+24 


12550 


32 


07068 


00000 


21310 


ASC3 


SF 


OUTSW 


12562 


17 


05738 


42574 


21320 




BTM 


CS0RN,*+12 


12574 


43 


14586 


10103 


21330 




BD 


ASC9 , FNTSW 1 , , BRANCH IF COLLECTING FUNCTION 


12586 


43 


13754 


10102 


21340 




BD 


ASC8,FNTSW,, BRANCH IF SYMBOL WAS FUNCTION 


12598 


43 


13242 


10111 


21350 


ASC7 


BD 


RTC ALL ,C ALL SW , , RETURN TO CALL ROUTINE 


12610 


45 


12658 


15141 


21360 




BNR 


ASCI ,CHI+2 , 


12622 


14 


02615 


oooeo 


21370 




CM 


PARCNT, 0, 10 


12634 


46 


02626 


01200 


21380 




BE 


BEGIN 


12646 


17 


09384 


00379 


21390 




BTM 


ERROR, 379, 9, UNBALENCED PARENTHESIS 


12658 


14 


15139 


0003-0 


21400 


ASCI 


CM 


CHI ,30, 10 


12670 


47 


12694 


01300 


21410 




BL 


* + 24 


12682 


17 


09384 


00378 


21420 




BTM 


ERROR, 378, 9, INVALID OPERATOR 


12694 


14 


15139 


00024 


21430 




CM 


CHI, 24, 10 


12706 


46 


12438 


01200 


21440 




BE 


ASC23 


12718 


14 


15139 


0001-0 


21450 




CM 


CHI ,10, 10 


12 730 


47 


12762 


01200 


21460 




BNE 


* + 32 


12742 


17 


09084 


06110 


21470 




BTM 


PUT, 110, 8, ADD 


12754 


49 


12942 


00000 


21480 




B 


ASC24 


12762 








21490 




DORG 


*-3 


12762 


14 


15139 


00050 


21500 




CM 


CHI ,20, 10 


12774 


47 


12806 


01200 


21510 




BNE 


*+32 


12786 


17 


09084 


06120 


21520 




BTM 


PUT, 120,8, SUBTRACT 


12798 


49 


12942 


00000 


21530 




B 


ASC24 


12806 








21540 




DORG 


*-3 


12806 


14 


15139 


00031 


21550 




CM 


CHI ,21, 10 


12818 


47 


12850 


01200 


21560 




BNE 


* + 32 



68 



69 



1620 FORTRAN II-D PHASE 1-B 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 


Q 


12830 


1 7 


09084 


06121 


12842 


49 


1 2942 


00000 


12850 








12850 


14 


15139 


00044 


12862 


47 


12986 


01200 


12874 


14 


15141 


000 14 


12886 


47 


12930 


01200 


12898 


1 7 


09084 


06115 


12910 


3 1 


15138 


1 5140 


12 922 


49 


12942 


00000 


12930 










^ 


1 ^ l ^8 




1 2 942 






1 5140 


W OA A 


4 




00040 




46 






1 5Q78 


4Q 


1 J4U 


00000 










1 






ni inll 


1 PQQfi 


4.A 


1 inj 
\ . Jl 


01200 


i win 




14422 


10 103 


l inj? 


17 






] 3 034 




09084 


l n i rX 




7o 




10 103 


13058 


1 2 


02615 


0006 1 


13070 


49 


1 3090 


00000 


1 3 07 8 








13078 


12 


14698 


oooei 


13090 


31 


15138 


15140 


13102 


47 


12646 


01300 


131 14 


47 


13162 


01100 


13126 


14 


15139 


00024 


13138 


47 


125 74 


01200 


1315 


1 7 


09384 


00-378 


13162 


14 


02615 


00060 


131 74 


4 7 


1 3198 


1 200 


13186 


43 


13262 


10 107 


13198 


14 


15139 


00024 


1^555 


tt 


13150 


1 200 










13234 


49 


1 2598 


00000 


13242 
















13254 


49 


10344 


00000 


\ 














■136 72 


1 «71 


AO 

49 


10 296 


00000 


1 35«i 








132 82 


43 


1 3306 


05675 


132 94 


17 


09384 


00*77 


13306 


33 


05675 


00000 


13318 


32 


07295 


00000 


13330 


15 


10109 


00000 


13342 


26 


02625 


07242 


13354 


17 


09084 


06137 


13366 


27 


09084 


02624 




1620 FORTRAN I] 




OP 


P/L 


Q 


1 3378 


16 


14093 


00090 


1 3390 


17 


09084 


06124 


1 3402 


31 


15138 


15140 


1 34 14 


45 


13438 


15141 


1 3426 


17 


09384 


003-76 


13438 


14 


15139 


00040 


1 3450 


47 


13426 


01100 


13462 


15 


10102 


00000 


134 74 


14 


15139 


00069 


13486 


46 


13426 


01100 


13498 


32 


07068 


00000 


13510 


17 


05738 


1-3522 


13522 


43 


13426 


02611 


13534 


11 


14093 


00061 


1 3 54 6 


16 


10083 


000-14 


13558 


33 


10082 


00000 


135 70 


11 


02372 


00092 


13 582 


26 


0237? 


10083 


13594 


12 


04431 


00065 


1 3606 


26 


04431: 


07242 




14 


15139 


00064 


1 ?aa? 


46 


13686 


01200 




14 


15139 


00053 




47 


13426 


01200 


i jiii 


17 


09084 


06123 


1 


49 


13402 


00000 


13686 








13686 


17 


09084 


06104 


13698 


31 


15138 


15140 


13710 


11 


02625 


00064 


1 3722 


26 


02625 


14093 


1 3734 


15 


10100 


00004 


13746 


49 


12190 


00000 


13754 








13754 


44 


14606 


10102 


13 766 


11 


07295 


00062 


13 778 


26 


14700 


07295 


13 790 


14 


15139 


0002-4 


13 8 02 


46 


13826 


01200 


1 ^856 


17 


09384 


00679 




17 


09084 


06124 


l tatn 


16 


14698 


00061 




31 


15138 


15140 


1 386? 


15 


10102 


00000 




14 


15139 


00050 


1 50fli 


47 


13918 


01200 


13898 


17 


09084 


06129 


13910 


49 


13942 


00000 










13918 


14 


15139 


000 iO 


13930 


47 


13954 


01200 


13942 


31 


15138 


15140 


13954 


14 


15139 


00040 


13966 


46 


14082 


01100 


13978 


14 


15139 


00063 



PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


21 570 




BTM 


PUT, 121, 8, DIVIDE 


21 580 




B 


ASC24 


21 590 




D0RG 


*-3 


21600 




CM 


CHI ,14, 10 


21610 




BNE 


ASC25 


21620 




CM 


CHI+2,14,10 


21630 




BNE 


ASC24-12 


21 640 




BTM 


PUT, 115, 8, EXPONENTIAL 


21650 




TR 


CHI-1 ,CHI+1 


21 660 




B 


*+20 


2 1 670 




DORG 


*-3 


21680 




BTM 


PUT, 1 14, 8 , MULT I PL Y 




ASC24 


T R 


CH I— 1 , CH I + 1 






CM 


CHI, 40 ,10 


51 71 n 






ASC3 


f , 




Q 


ASC4 


21730 




DORG 


*-3 


2 1 740 


ASC25 


CM 


CH I ,4 , 10 


21750 




B E 


* + 36 


2 1 760 




BD 


ASC281,FNTSW1 


5 no" 




bt M 


ERROR, 378, 9, INVALID OPERATOR 






BTM 


PUT, 104, 8, RIGHT PAREN 


71 Q 

21 790 




BD 


* + 32 , FNT SW 1 


21800 




SM 


PARCNT , 1,10 


21810 




B 


* + 20 


21820 




DORG 


#-3 


21830 




SM 


TPARCT, 1,10 


21840 




TR 


CHI-1 ,CHI+1 


21850 




BN 


ASC1-12 


21860 




BNH 


w+48 


21870 




CM 


CHI ,24, 10 


21 880 




BNE 


ASC7-24 


2 1 890 




BTM 


ERROR, 378 ,9 


2 1900 




CM 


PARCNT ,0, 10 


21910 




BNE 


* + 24 


21920 




BD 


0UTS12 , I FSW 


2 1930 




CM 


CHI ,24, 10 


2 1940 




BE 


*-60 


219 50 




BD 


ASC31-12,FNTSW1 


9 i q 60 




B 


ASC7 






DORG 


*-3 


5 1 Q < 


DT 

RTCALL 


TFM 


CALL+23,CALL2 


71 OQ 




B 


CALL 


55 n 
22000 




DORG 


*~3 


22010 


OUTS 1 2 


TFM 


IF+23.0UTSN+12 


22020 




B 


IF 


220 30 




DORG 


*-4 


2 2040 


'"7 > "' t> "* 


ENTER HERE TO OUTPUT SINGLE STATEMENT FUNCTIONS 


22050 


vw*** 






22060 


ASC21 


BD 


*+24,STSN 






BTM 


ERROR ,377,9, SINGLE STATEMENT PRECEEDED 1 


22080 




CF 


STSN 


22090 




SF 


SMCNT, ,6 


22100 




TDM 


OMM ,0 


22110 




TF 


TEMP5 , SMADD , , SAVE SYMBOL ADDRESS Tn MOVE 


22120 




BTM 


PUT, 137,8,ARITH STATEMENT FUNCTION 


22130 




BT 


PUT >TEMP5-1 , , OUTPUT STMMT NAME 
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PHASE 1-B 

PG/LN LABEL 

22140 
221 50 
22160 
22170 

22180 ASC26 

22190 

22200 

22210 

22220 

22230 

22240 

22250 

22260 

22270 

22280 

22290 

22300 

22310 

22320 

22330 

22340 

22350 

22360 

22370 

22380 

22390 

22400 

22410 

22420 

22430 

22440 

22450 

22460 

22470 

22480 ****** 
22490 ****** 
22500 ASC8 
22510 
22520 

22530 ASC15 

22 540 

22550 

22560 

22570 

22580 

22 590 

22600 ASC12 

22610 

22620 

22630 

22640 

22650 

22660 

22670 

22680 

22690 

22700 



NOVEMBER, 1966 



MNEM OPERANDS AND REMARKS 



TFM 
BTM 
TR 
BNR 
BTM 
CM 
BNH 
TDM 



BTM 
BD 



TFM 
CF 



INITIAL PARAMETER COUNT 
PAREN 



INCOMPLETE STATEMENT FUNCTION 



PCNT,0, 10, 
PUT, 124, 8, LEFT 

CHI-1 ,CHI+1 
*+24,CHI+2 
ERROR, 376, 9, 
CHI ,40, 10 
*-24 
FNTSW,0 
CHI ,69, 10 
ASC26 
OUTSW 

CS0RN,*+12 
ASC26 , IMS W 
PCNT,1,10 
SYM+2,14,10 
SYM + 1 

NXL0C,2,10 
NXLOC ,SYM+2,6 
STAFT,5,10 
STAFT , SMADD ,6 
CHI, 04, 10 
* + 5A 

CHI, 23, 10 
ASC26 

PUT, 123, 8, COMMA 

ASC26-24 
*-3 

PUT, 104, 8, RIGHT PAREN 

CHI-1 ,CHI+1 
TEMP5,4,10 
TEMP5,PCNT,6 

SINGST,1,11, SET SINGLE STAMT SWITCH, SWITCH TESTED 

B AERR-24, , , IN PUTTING OUT SUBSCRIPTING 

DORG *-3 

ENTER TO OUTPUT SINGLE STATEMENT FUNCTION CALL AND ****** 
FUNCTION SUBPROGRAM CALL ****** 



SM 



BNE 
BTM 



DORG 
BTM 



TDM 



BNF 


ASCII ,FNTSW, , 


NO FLAG INDICATE FUNCTION SUBPROGRAM 


AM 


SMCNT ,2 , 10 




TF 


NOPARM, SMCNT, 


,11, MOVE NO. OF PARAMETERS TO COUNTER 


CM 


CHI ,24, 10 




BE 


* + 24 




BTM 


ERROR, 079, 9, 


FUNCT NAME NOT FOLLOWEO BY L PAREN 


BTM 


PUT , 124, 


,8, LEFT PAREN 


TFM 


TPARCT, 1, 10, 


SET UP TEMPORARYPAREN COUNT 


TR 


CHI-1 ,CHI+1 




TDM 


FNTSW,0 




CM 


CHI ,20, 10 




BNE 


* + 32 




BTM 


PUT, 129, 


p8 , unary minus 


B 


* + 32 




DORG 


*-3 




CM 


CHI, 10, 10 




BNE 


* + 24 




TR 


CHI-1 ,CHI+1 




CM 


CHI ,40, 10 




BH 


ASC27 




CM 


CHI ,3, 10, 
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***** 


1620 FORTRAN II-O 


PHASE 


1-B 




NOVEMBER » 1966 


LOCTN 


OP 


P/L 


o 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13990 


46 


14082 


1 200 


22710 




BE 


ASC27 


14002 


14 


15139 


00024 


22720 




CM 


CHI, 24,10 


14014 


46 


14038 


01200 


22730 




BE 


*+24 


14026 


17 


09384 


00470 


22740 


ASCER 


BTM 


ERROR, 470, 9, INVALID FUNCTION PARAMETER 


14038 


17 


09084 


06124 


22750 




BTM 


PUT, 124, 8, LEFT PAREN 


14050 


31 


15138 


15140 


22760 




TR 


CHI-1 ,CHI+1 


14062 


11 


14698 


00061 


22770 




AM 


TPARCT, 1, 10 


14074 


49 


13874 


00000 


22780 




B 


ASC12 


14082 








22790 




DORG 


*-3 


14082 


32 


07068 


00000 . 


22800 


ASC27 


SF 


OUTSW 


14093 




00002 




22810 


PCNT 


DC 


2,0,* 


14094 


44 


14150 


14700 


22820 




BNF 


ASC27A,NOPARM 


141 06 


15 


07439 


00001 


22830 




TDM 


FNTSW2 » 1 


141 18 


17 


05738 


1-4130 


22840 




BTM 


CS0RN,*+12 


14130 


15 


07439 


00000 


22850 




TDM 


FNTSW2 ,0 


14142 


49 


14186 


uuuuu 


22860 




B 


ASC29-12 


14150 








22870 




DORG 


*-3 


14150 


17 


05738 


44162 


22880 


ASC27A 


BTM 


CS0RN,*+12 


14162 


1 2 


14700 




22890 




SM 


NOPARM, 1, 10 


14174 


47 


14026 


1300 


22900 




BN 


ASCER 


14186 


43 


14626 


10102 


22910 




BD 


ASC14,FNTSW, , TEST FOR NESTED FUNCTIONS 


14198 


45 


14218 


15141 


22920 


ASC29 


BNR 


*+20,CHI+2 


142 10 


49 


14026 


00000 


22930 




B 


ASCER 


14218 








22940 




DORG 


*-3 


14218 


14 


15139 


0002-3 


22950 




CM 


CHI ,23, 10 


14230 


47 


14318 


01200 


22960 




BNE 


ASC28 


14242 


17 


09084 


06123 


22970 


ASC30 


BTM 


PUT, 123, 8, COMMA 


14254 


31 


15138 


15140 


22980 




TR 


CHI-1 ,CHI+1 


14266 


44 


14286 


14700 


22990 




BNF- 


*+20, NOPARM 


14278 


49 


13874 


00000 


23000 




B 


ASC12 


14286 








23010 




DORG 


*-3 


14286 


14 


14700 


00000 


23020 




CM 


NOPARM, 0, 10 


14298 


46 


14026 


01200 


23030 




BE 


ASCER 


14310 


49 


13874 


00000 


23040 




B 


ASC12 


143 18 








23050 




DORG 


*-3 


143 18 


14 


15139 


00064 


23060 


ASC28 


CM 


CHI ,4, 10 


14330 


46 


14362 


01200 


23070 




BE 


* + 32 


14342 


1 5 


10103 


0000 1 


23080 




TDM 


FNTSW1, 1 


14354 


49 


12658 


00000 


23090 




B 


ASCI 


14362 








23100 




DORG 


*-3 


14362 


^ 






23110 




BTM 


PUT, 104, 8, RIGHT PAR EN 


14374 


1 2 


14698 




23120 




SM 


TPARCT, 1, 10 


14386 


3 1 


15138 


l til An 


23130 




TR 


CHI-1 ,CHI+1 


14398 


47 


14026 


01300 


23140 




BN 


ASCER 


14410 


46 




01200 


23150 




BE 


* + 56 


14422 


14 


15139 


00023 


23160 


ASC281 


CM 


CHI, 23, 10 


14434 


46 


14242 


01200 


23170 




BE 


ASC30 


14446 


45 


14342 


15141 


23180 




BNR 


ASC28+24.CHI+2 


14458 


49 


14026 


00000 


23190 




B 


ASCER 


14466 








23200 




DORG 


*-3 


14466 


44 


14554 


14700 


23210 




BNF 


ASC9-32 , NOPARM 


14478 


14 


14644 


4-46 97 


23220 


ASC31 


CM 


ASC14+18,FLIST-9,, TEST IF NEST LIST IS EMPTY 


14490 


47 


14522 


01200 


23230 




BNE 


* + 32 


14502 


15 


10103 


00000 


23240 




TDM 


FNTSW1 


14514 


49 


13198 


00000 


23250 




B 


RTCALL-44 


14522 








23260 




DORG 


*-3 


14522 


31 


14697 


14644 


23270 




TR 


TPARCT-1.ASC14+18, 11 
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7f 



1620 FORTRAN I I -D 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14534 


12 


14644 


00065 


23280 




SM 


ASC14+18,5,10 




14546 


49 


14198 


00000 


23290 




B 


ASC29 




14554 








23300 




DORG 


*-3 




14554 


14 


14700 


OOO&O 


23310 




CM 


NOPARM, 0, 10 




14566 


46 


14478 


01200 


23320 




BZ 


ASC31 




14578 


49 


14026 


00000 


23330 




B 


ASCER 




14586 








23340 




DORG 


*-3 




14586 


15 


10103 


00000 


23350 


ASC9 


TDM 


FNTSW1.0,, 




14598 


49 


14186 


00000 


23360 




B 


ASC29-12 




14606 








23370 




DORG 


*-3 




14606 


16 


14700 


00066 


23380 


ASCII 


TFM 


NOPARM , 0,1011 




14618 


49 


13790 


00000 


23390 




B 


ASCI 5 




14626 








23400 




DORG 


*-3 












23410 


****** 


ENTER HERE TO SHIFT PARAMETER LIST DOWN 


14626 


11 


14644 


00065 


23420 


ASC14 


AM 


*+18,5, 10 




14638 


31 


44697 


14697 


23430 




TR 


FL IST-9, TPARCT 


-1,2 


14650 


49 


13754 


00000 


23440 




B 


ASC8 




14657 








23450 




DORG 


*-4 




1465R 


16 


14644 


44697 


23460 


IFASEN 


TFM 


ASC14+18, FLIST 


-9 


14670 


49 


12286 


00000 


23470 




B 


IFSCAN+12 




14677 








23480 




DORG 


*-4 




14678 


16 


14700 


00066 


23490 


CLASEN 


TFM 


NOPARM, 00, 1011 




14690 


49 


12262 


00000 


23500 




B 


IFSCAN-12 




14697 








23510 




DORG 


*-4 




14698 




00002 




23520 


TPARCT 


OS 


2 




14700 




00002 




23530 


NOPARM 


DS 


2 




14701 




00001 




23540 




DC 


1,3 




14706 




00005 


00020 


23550 


FLIST 


DSB 


5,20 




16000 








23560 




DORG 


16000 




16000 


16 


00565 


46023 


23570 




TFM 


I0RT,*+23 




16012 


49 


00532 


69770 


23580 




B 


I0PT,BLK3,7 




16024 


36 


00012 


00500 


23590 




TRA 






16036 


49 


00012 














16000 








23600 




TCD 


16000 












23610 


* 


OUT OF CORE BLOCK 4 


CONTAINS THE FOLLOWING 










23620 




OUTSC 














23630 




DO 














23640 


* 


10 OTHER THAN DISK 




10200 








23650 




DORG 


IOUT 




10200 


14 


15139 


000 44 


23660 




CM 


CHI ,44, 10, 


IOUT, NONDISK I/O 


102 12 


49 


13172 


00000 


23670 




B 


IOUTEN 




10224 


16 


02359 


69747 


23680 




TFM 


FMON+35.BLK2 




10236 


17 


02324 


40224 


23690 




BTM 


FMON ,NON AR A 




10248 


16 


02359 


69724 


23700 




TFM 


FMON+35.BLK1, , 


DIM 


10260 


17 


02324 


40248 


23710 




BTM 


FMON, DIM 




10272 


16 


02359 


69724 


23720 




TFM 


FMON+35.BLK1 , , 


COMMON 


10284 


17 


02324 


40272 


23730 




BTM 


FMON, COMMON 




10296 


16 


02359 


69839 


23740 




TFM 


FM0N+35.BLK6,, 


IF STMNT 


10308 


17 


02324 


40296 


23750 




BTM 


FMON, IF 




10320 


16 


02359 


69839 


23760 




TFM 


FMON+35.BLK6,, 


GOTO 


10332 


17 


02324 


40320 


23770 




BTM 


FMON, GOTO 




10344 


16 


02359 


69839 


23780 




TFM 


FM0N+35.BLK6,, 


CALL 


10356 


17 


02324 


40344 


23790 




BTM 


FMON, CALL 




10368 


16 


02359 


69839 


23800 




TFM 


FM0N+35,BLK6, , 


RETURN 


10380 


17 


02324 


40368 


23810 




BTM 


FMON, RETURN 




10392 


16 


02359 


69724 


23820 




TFM 


FM0N+35.BLK1,, 


FORMAT 


10404 


17 


02324 


40392 


23830 




BTM 


FMON, FORMAT 
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***** 


1620 FORTRAN I I-D 


PHASE 


1-B 




NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


10416 


44 


12094 


02609 


23840 




BNF 


D0L00P+36.TRIND, , DO STATEMENT 


1042 8 


49 


12058 


00000 


23850 




B 


DOLOOP 


10440 


16 


02359 


€9770 


23860 




TFM 


FM0N+35,BLK3 , , ASCAN 


10452 


17 


02324 


40440 


23870 




BTM 


FMON , ASCAN 


1 0464 


43 


10884 


10100 


23880 




BD 


SCl.SINGST,, OUTSC 


104 76 


49 


10512 


00000 


23890 




B 


0UTSC1 


10488 


16 


02359 


69816 


23900 




TFM 


FM0N+35.BLK5, , DISK INPUT/OUTPUT 


10500 


17 


02324 


40488 


23910 




BTM 


FMON.DKIO 










23920 


** 


OUTSC CODE IS HERE 


12058 








23930 




DORG 


ASCAN1 










23940 


****** 


OUTPUT DO STATEMENTS ****** 


12058 


15 


02609 


00000 


23950 


OOLOOP 


TDM 


TRIND,0 


12070 


43 


12094 


02610 


23960 




BD 


*+24,N0IND 


12082 


17 


09440 


005-72 


23970 




BTM 


ERR0R2,572,9 


12094 


14 


15139 


00044 


23980 




CM 


CHI, 44, 10 


12106 


47 


09278 


01200 


23990 




BNE 


SPERR 


12118 


14 


15141 


00056 


24000 




CM 


CHI+2,56, 10 


12130 


47 


09278 


01200 


24010 




BNE 


SPERR 


12142 


43 


12166 


02424 


24020 




BD 


*+24, INDIV 


12154 


17 


04876 


oooeo 


24030 




BTM 


CKCNTU,0, 10 


12166 


15 


05675 


00000 


24040 




TDM 


STSN 


12178 


31 


15138 


15142 


24050 




TR 


CHI-l,CHI+3 


12190 


14 


15139 


00069 


24060 


DO 


CM 


CHI ,69, 10 


12202 


46 


12226 


01100 


24070 




BH 


* + 24 


12214 


17 


09384 


00275 


24080 




BTM 


ERROR, 275, 9, INCORRECT DO STATEMENT 


12226 


17 


09084 


0*108 


24090 




BTM 


PUT, 108,8,00 


12238 


32 


07068 


00000 


24100 




SF 


OUTSW 


12250 


17 


05446 


42262 


24110 




BTM 


CSTN0,*+12 


12262 


11 


07242 


00065 


24120 




AM 


SMADD , 5,10 


1 22 74 


49 


12390 


00000 


241 30 




B 


DOCK 


12282 








24140 




DORG 


*-3 


12282 


15 


07243 


00001 


241 50 




TDM 


SMADD, 1,6, SET BY DO, IF NOT SET DO REF IN TABLE 


12294 


14 


15139 


00040 


24160 


DOC 


CM 


CHI ,40 , 10 


12306 


47 


12378 


01100 


24170 




BNH 


DOCK-12 


12318 


14 


15139 


00069 


24180 




CM 


CHI ,69, 10 


12330 


46 


12378 


01100 


24190 




BH 


DOCK-12 


12342 


17 


05738 


42354 


24200 




BTM 


CS0RN,*+12,, COLLECT DO INDEX SYMBOL 


12354 


27 


09084 


07241 


24210 




BT 


PUT,SMADD-1 


12366 


43 


12446 


06453 


24220 




BD 


DOC 1 , FXOR FL 


12378 


17 


09384 


00-275 


24230 




BTM 


ERROR, 275 ,9, FLOATING POINT VARIABLE FOR INDEX 


12390 


43 


12434 


07242 


24240 


DOCK 


BD 


D0C1-12, SMADD, 11 


12402 


12 


07242 


00062 


24250 




SM 


SMADD, 2,10 


12414 


43 


12294 


07242 


24260 




BD 


DOC, SMADD ,11 


12426 


49 


12282 


00000 


24270 




B 


DOC-12 


12434 








24280 




DORG 


*-3 


12434 


17 


09384 


00274 


24290 




BTM 


ERROR, 274, 9, DO REFERENCING ILLEGAL STAMNT NO 


12446 


14 


15139 


00033 


24300 


D0C1 


CM 


CHI, 33, 10, TEST FOR EQUAL SIGN NEXT 


12458 


47 


12214 


01200 


24310 




BNE 


00+24 


12470 


17 


09084 


0&133 


24320 




BTM 


PUT, 133,8, EQUAL 


12482 


31 


15138 


15140 


24330 




TR 


CHI-1 ,CHI+1 


124 94 


33 


12518 


00000 


24340 




CF 


DOA,,, INITIALIZE SWITCHES 


12506 


33 


12670 


00000 


24350 




CF 


DOB 


12518 


14 


15139 


00040 


24360 


DOA 


CM 


CHI ,40, 10 


12530 


47 


12378 


01100 


24370 




BNH 


DOCK-12,,, TEST FOR UNSIGNED VALUES 


12542 


14 


15139 


00069 


24380 




CM 


CHI ,69, 10 


12554 


47 


12578 


01100 


24390 




BNH 


*+24, , , 


12566 


32 


12518 


00000 


24400 




SF 


DOA 



74 





1620 FORTRAN I I-D 


PHASE 


1-B 




NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABFL 


MNEM 


OPERANDS AND REMARKS 


12578 


32 


07068 


00000 


24410 




SF 


OUTSW 


12590 


17 


05738 


42602 


24420 




BTM 


CS0RN,*+12,, COLLECT AMD OUTPUT FIRST INDEX 


12602 


43 


12622 


06453 


24430 




BD 


*+20,FX0RFL 


12614 


49 


12378 


00000 


24440 




B 


DOCK-12 


12622 








24450 




DORG 


*-3 


12622 


44 


12670 


12518 


24460 




BNF 


DOB ,DOA 


12634 


26 


13171 


10081 


24470 




TF 


DOTEST,SYM 


12646 


14 


10081 


OOO&O 


24480 




CM 


SYM,0,10, TF ST IF FIRST INDEX WAS ZFRO 


12658 


46 


12378 


01200 


24490 




BE 


DOCK-12 


12670 


14 


15139 


00023 


24500 


DOB 


CM 


CHI ,23, 10 


126 82 


47 


12214 


01200 


24510 




BNE 


DO+24 


12694 


17 


09084 


0&123 


24520 




BTM 


PUT, 123,8 , COMMA 


12706 


31 


15138 


15140 


24530 




TR 


CHI-1, CHI+1 


12718 


14 


15139 


00040 


24540 




CM • 


CHI, 40, 10 


12730 


47 


12378 


01100 


24550 




BNH 


DOCK-12 


12 742 


14 


15139 


00069 


24560 




CM 


CHI ,69, 10 


12754 


47 


12778 


01100 


24570 




BNH 


* + 24 


12 766 


32 


126 70 


00000 


24580 




SF 


DOB 


12778 


17 


05738 


1-2790 


24590 




BTM 


CS0RN,*+12 


12790 


27 


09084 


07241 


24600 




BT 


PUT,SMADD-1 


12802 


43 


12822 


06453 


24610 




BD 


*+20,FXORFL 


12814 


49 


12378 


00000 


24620 




B 


DOCK-12 


12822 








24630 




DORG 


*-3 


12822 


44 


12894 


12670 


24640 




BNF 


*+72,D0B 


12834 


44 


12870 


12518 


24650 




BNF 


*+36,D0A 


12846 


24 


10081 


13171 


24660 




C 


SYM.DOTEST,, TEST IF SECOND INDEX IS GREATFR OR 


12858 


47 


12378 


01300 


24670 




BL 


DOCK-12,,, EQUAL TO THE FIRST IF BOTH ARF COMSTS 


12870 


14 


10081 


OOO&O 


24680 




CM 


SYM,0, 10 


12882 


46 


12378 


01200 


24690 




BE 


DOCK-12 


12894 


45 


12926 


15141 


24700 




BNR 


D0E,CHI+2 


12906 


43 


12214 


10113 


24710 




BD 


DO+24, IOSW,, I/O CANNOT END HER F 


12918 


49 


02626 


00000 


24720 




B 


BEGIN 


12926 








24730 




DORG 


*-3 


12926 


14 


15139 


00023 


24740 


DOE 


CM 


CHI ,23,10 


12938 


46 


12970 


01200 


24750 




BE 


* + 32 


12950 


43 


14452 


10113 


24760 




BD 


IOF,IOSW,, RETURN TO I/O SCAN 


12962 


49 


12214 


00000 


24770 




B 


DO+24 


12970 








24780 




DORG 


*-3 


12970 


17 


09084 


06123 


24790 




BTM 


PUT, 123, 8, COMMA 


12982 


31 


15138 


15140 


24800 




TR 


CHI-1, CHI+1 


12994 


14 


15139 


00040 


24810 




CM 


CHI, 40,10- 


13006 


47 


12378 


01100 


24820 




BNH 


DOCK-12 


13018 


32 


07068 


00000 


24830 




SF 


OUTSW 


13030 


17 


05738 


1-3042 


24840 




BTM 


CS0RN,*+12 


13042 


14 


07295 


&2219 


24850 




CM 


SMCNT,2219 


13054 


46 


12214 


01200 


24860 




BE 


DO+24,,, SUBSCRIPTED VARIABLE IN DO 


13066 


43 


13086 


06453 


24870 




BD 


*+20,FX0RFL 


13078 


49 


12378 


00000 


24880 




B 


DOCK-12 


13086 








24890 




DORG 


*-3 


13086 


14 


10081 


00090 


24900 




CM 


SYM,0,10 


13098 


46 


12378 


01200 


24910 




BE 


DOCK-12 


13110 


43 


14452 


10113 


24920 


DOEE 


BD 


IOF,IOSW,, 


13122 


45 


13142 


15141 


24930 




BNR 


*+20 ,CHI+2 


13134 


49 


02626 


00000 


24940 




B 


BEGIN 


13142 








24950 




DORG 


*-3 


13142 


17 


09440 


00-673 


24960 




BTM 


ERR0R2,573,9 


13154 


49 


02626 


00000 


24970 




B 


BEGIN 



75 



***** 


1620 FORTRAN 1 1 -D 


PHASE 


1-B 




NOVEMBER, 1966 PAGE ' 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13162 








24980 




DORG 


*-3 


13171 




000 10 




24990 


DOTEST 


OS 


10 










25000 


**** 


ENTER HERE TO DECOMPOSE I/O STATEMENTS OTHER THAN DISK **** 


13172 


47 


13216 


01200 


25010 


IOUTEN 


BNE 


*+44 


13184 


16 


1 3567 


06112 


25020 




TFM 


I0UT1+11. 112,8, OUTPUT READ SYMBOL 


13196 


31 


15138 


15140 


25030 




TR 


CHI-l.CHI+l 


13208 


49 


1 3556 


00000 


2 5040 




B 


I0UT1 


13216 








25050 




DORG 


*-3 


13216 


14 


15139 


00055 


25060 




CM 


CHI, 55, 10 


13228 


47 


1 3308 


01200 


25070 




BNE 


I0UT2 


13240 




1 ^776 




25080 




CM 


CHI+2,63,10 


13252 


4A 


not 


m 5nn 


25090 




BE 


*+24 


13264 


1 7 


? ?!, 


nna7i 


25100 


IOUTER 


BTM 


ERROR, 71, 9 


13276 


16 


13567 


06 11 1 


25110 




TFM 


I0UT1+11, 111,8, OUTPUT PRINT SYMBOL 


132 88 


3 1 


15138 


1 5142 


25120 




TR 


CHI-l.CHI+3 


13300 


49 


13556 


00000 


25130 




B 


I0UT1 


13308 








25140 




DORG 


*-3 


13308 


14 


15139 


00045 


25150 


I0UT2 


CM 


CHI, 45, 10 


13320 


47 


13388 


01200 


25160 




BNE 


I0UT3 


13332 


3 1 


15138 


15140 


2 51 70 




TR 


CHI-1,CHI+1,, SHIFT OFF E 










25175 


************* ****************************** ******************* ******** 


13344 


14 


04 179 


63685 


25180 




CM 


SV3, 63685 ,,,COMPARE FOR TYPE 


13356 


47 


10200 


1 200 


25190 




BNE 


I OUT 










25195 








13368 


16 


13567 


0© 1 13 


25200 




TFM 


IOUTl + 11,0,113,8, OUTPUT TYPE SYMBOL 


13380 


49 


1 3556 


00000 


25210 




B 


I0UT1 


13388 








25220 




DORG 


*-3 


13388 


1 7 


04696 


00062 


25230 


I0UT3 


BTM 


COLNAM ,2,10 


13400 


14 


1008 1 


04348 


25240 




CM • 


SYM,4348,8 


13412 


46 


13264 


01400 


25250 




BV 


IOUTER 


13424 


4 7 


1 35 76 


1 200 


25260 




BNE 


I0UT4 


13436 


16 


13567 


06 118 


25270 




TFM 


I0UT1+11, 118,8, OUTPUT PUNCH SYMBOL 


13448 


3 1 


151 38 


1 51 42 


25280 


I OUT 5 


TR 


CHI-liCHI+3 


13460 


14 


15 1 39 


00063 


25290 




CM 


CHI ,63, 10 


13472 


47 


13556 


1 200 


25300 




BNE 


I0UT1 


13484 


17 


04696 


00064 


25310 




BTM 


COLNAM, 4, 10 


13496 


24 


10081 


13639 


25320 




C 


SYM, TPCST 










25325 


********************************************************************** 


13508 


46 


1 3556 


01400 


25530 




BV 


I0UT1 


13520 


47 


13556 


01200 


25540 




BNE 


I0UT1 










25345 








13532 


31 


15138 


15146 


25350 




TR 


CHI-l.CHI+7 


13544 


11 


13567 


00061 


25360 




AM 


I0UT1+11, 1,10 


13556 


17 


09084 


60000 


25370 


I0UT1 


BTM 


PUT,,, OUTPUT I/O SYMBOL 


13568 


49 


13640 


00000 


25380 




B 


INOUT 


13576 








25390 




DORG 


*-3 


13576 


14 


10081 


0-5763 


25400 


I OUT 4 


CM 


SYM, 5763, 8 


13588 


2 7 


1 




25410 




BV 


IOUTER 


13600 




?■ Zt ~Z 


nil i A 


25420 




BNE 


IOUTER 


13612 








25430 




TFM 


IOUTl+11,0116,8, OUTPUT ACCEPT SYMBOL 


13624 


49 


13448 


„„„;:„ 

00000 


2 5440 




B 


I0UT5 


13632 








25450 




DORG 


*-3 


13639 




00008 




25460 


TPCST 


DC 


8,63415745,, TAPE 










25470 


****** 


OUTPUT INPUT-OUTPUT LISTS ****** 


13640 


32 


07068 


00000 


25480 


INOUT 


SF 


OUTSW 










25481 


********************************************************************** 


13652 


15 


10113 


00001 


25485 




TDM 


IOSW, 1 


* * * * * 


1620 FORTRAN 1 1 -D 


PHASE 


1-B 




NOVEMBER, 1966 PAGE 4 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13664 


14 


15139 


00069 


25490 




CM 


CHI ,69, 10 


13676 


46 


13872 


01100 


25495 




BH 


IOZ 


13688 


14 


15139 


00040 


25497 




CM 


CHI, 40, 10 ,, ,CHECK FOR VARIABLE FORMAT 


13700 


46 


13744 


01300 


25498 




BNL 


VARFOR 


13712 


17 


09084 


09-999 


25500 




BTM 


PUT, 9999, 8 ' 


13724 


15 


02292 


00001 


25510 




TDM 


USEDFS+29, 1 


13736 


49 


13952 




25520 




B7 


I OA 


13 744 


17 


09084 


09998 


25521 


VARFOR 


BTM 


PUT, 9998,8 


13756 


17 


09084 


06123 


25522 




BTM 


PUT, 123,8 


13768 


15 


02291 


00001 


25523 




TDM 


USFDFS+28, 1 


13780 


32 


07068 


00000 


25524 




SF 


OUTSW 


13792 


16 


07446 


i-3840 


25525 




TFM 


FNTSW2+7,*+48 


13804 


17 


05738 


Jr3816 


25526 




BTM 


CS0RN,*+12 


13816 


16 


07446 


67556 


25527 




TFM 


FNTSW2+7,LUXIT 


13828 


17 


09384 


00276 


2 5528 




BTM 


ERROR, 276, 9 


13840 


16 


07446 


67556 


25529 




TFM 


FNTSW2+7,LUXIT 


13852 


16 


05737 


439 52 


2552A 




TFM 


CSORN-1, IOA 


13864 


49 


07556 




2552B 




B7 


LUXIT 










25522 








13872 


17 


05446 


43884 


25530 


IOZ 


BTM 


CSTN0,*+12 


13884 


11 


07242 


00064 


25540 




AM 


SMADD,4,10 


13896 


43 


13928 


02611 


25550 




BD 


*+32 , INSW 


13908 


15 


07245 


00001 


25560 




TDM 


SMADD,1,6, SET DIGIT FOR FORMAT STAMMT NIIMBFR 


13920 


49 


13952 


00000 


25570 




B 


* + 32 


13928 








25580 




DORG 


*-3 


13928 


43 


13952 


07242 


25590 




BD 


*+24,SMADD, 11, TEST IF STAMMT NUMBER CORRESPONDS TO FMT 


13940 


17 


09384 


00277 


25600 




BTM 


ERROR, 277, 9, I/O STATEMENT NO. NOT A FORMAT NUMBER 


13952 


45 


13972 


15141 


25610 


I OA 


BNR 


*+20,CHI+2 


13964 


49 


02626 


00000 


25620 




B 


BEGIN 


13972 








25630 




DORG 


*-3 


13972 


14 


15139 


00023 


25640 




CM 


CHI ,23, 10 


13984 


46 


14008 


01200 


25650 




BE 


* + 24 


13996 


17 


09384 


00278 


25660 


IOLER 


BTM 


ERROR, 278, 9, MISSING COMMA OR INVALID LIST ELEMENT 


14008 


17 


09084 


06123 


25670 




BTM 


PUT, 123, 8, COMMA 


14020 


31 


15138 


15140 


25680 




TR 


CHI-1,CHI+1 


14032 


14 


15139 


00040 


25690 




CM 


CHI ,40, 10 


14044 


47 


14104 


01100 


25700 




BNH 


IOB 


14056 


14 


15139 


00069 


25710 




CM 


CHI ,69, 10 


14068 


46 


13996 


01100 


25720 




BH 


IOLER 


14080 


32 


07068 


00000 


25730 




SF 


OUTSW 


14092 


17 


05738 


43952 


25740 




BTM 


CSORN, IOA • 


14104 


16 


14271 


00060 


25750 


IOB 


TFM 


IOLOOP, 0, 10 


141 16 


14 


15139 


00024 


25760 




CM 


CHI, 24, 10 


14128 


47 


13996 


01200 


25770 




BNE 


IOLER 


14140 


11 


02615 


00061 


25780 




AM 


PARCNT, 1, 10 


14152 


17 


09084 


06124 


25790 




BTM 


PUT, 124, 8, LEFT PAREN 


14164 


31 


15138 


15140 


25800 




TR 


CHI-1,CHI+1 


14176 


11 


14271 


00061 


25810 




AM 


IOLOOP, 1, 10 


14188 


14 


15139 


00024 


25820 




CM 


CHI ,24, 10 


14200 


46 


14636 


01200 


25830 




BE 


IOG 


14212 


14 


15139 


00040 


2 5840 


IOD 


CM 


CHI ,40, 10 


14224 


47 


14116 


01100 


25850 




BNH 


IOB+12 


14236 


14 


15139 


00069 


25860 




CM 


CHI, 69, 10 


14248 


46 


13996 


01100 


25870 




BH 


IOLER 


14260 


32 


07068 


00000 


25880 




SF 


OUTSW 


14271 




00002 




25890 


IOLOOP 


DC 


2,0,* 


142 72 


17 


05738 


1-4284 


25900 




BTM 


CSORN, *+12,, COLLECT LIST ELEMENT 



76 



***** 


1620 FORTRAN II-D 


PHASE 








LOCTN 


OP 


P/L 





PG/ LN 


ARFI 


MNEM 


OPERANDS AND REMARKS 


14284 


45 


14304 


07295 


25910 




BNR 


* + 20 , SMC NT j 1 1 


14296 


49 


13996 




25920 




B7 


IOLERt , ^FUNCTION NAME 


14304 


14 


15139 


000*3 






^ 


Unl i £. D f IV 


143 16 


47 


14372 


01200 






BNE 


I OE 


l l^in 


17 


09084 


06123 






BTM 


PUT, 123,8, COMMA 




32 


10113 


00000 






S F 


I OS W 


14352 


31 


15138 


15140 


?«;Q7n 




TR 


CHI— 1 , CH I + 1 


1 4364 


49 


14212 


00000 


7S980 








14372 








25990 




n r 


*°3 


14372 


44 


13996 


10113 


26000 


IOE 


BNF 


I OL E R » I OS W 


14384 


33 


10113 


00000 


26010 




C F 




14396 


14 


15139 


00053 


26020 




CM 


CH 1 , 33 t 10 


14408 


47 


14116 


01200 


26030 




BNE 


IOB+12 


14420 


17 


09084 


06133 


26040 




BTM 


PUT, 133,8,E0UAL 


14432 


43 


12482 


06453 


26050 




BD 


DOA-36 , FXORFL , , BRANCH TO COLLECT INOICB OF ARRAY LOOP 


14444 


49 


13996 


00000 


26060 




B 


IOLER 


14452 








26070 




OORG 


*-3 










26080 


****** 


RETURN HERE FROM DO CODFING ' ***** 


14452 


14 


15139 


00064 


26090 


IOF 


CM 


CHI ,4 , 10 


14464 


47 


13996 


01200 


261 00 




BNE 


IOLER 


14476 


17 


09084 


06104 


26110 




BTM 


PUT j 104,8, RIGHT PAREN 


14488 


31 


15138 


15140 


26120 




T R 


CHI-1 , CH I + 1 


14500 


12 


02615 


00061 


26130 






PARCNT , 1, 10 


14512 


47 


13996 


01300 


26140 




BN 


I OL ER 


14524 


12 


14271 


00061 


261 50 




SM 


I OL 00 P » 1 » 1.0 


14536 


47 


14568 


01200 


26160 




BNZ 


* + 32 


l t^An 


45 


13972 


15141 


\ b \ 




BNR 


IOLER-24 jCHI+2 




49 


02626 


00000 


26180 




B 


BEGIN 










26190 




DORG 


*-3 




14 


15139 


0002-3 






CM 


CHI ,23, 10 


14580 


47 


13996 


01200 


26210 




BNE 


IOLER 


14592 


17 


09084 


06123 






BTM 


PUT, 123, 8, COMMA 


14604 


31 


15138 


15140 


26? 30 




TR 


CHI-1 ,CHI+1 


146 16 


32 


10113 


00000 


26240 




SF 


IOSW 


1462 8 


49 


14212 


00000 


262 50 




B 


IOD 


14636 








PA?7rl 




DORG 


*-3 


14636 


17 


09084 


06124 






BTM 


PUT, 124, 8, LEFT PAREN 


14648 


11 


02615 


00061 






AM 


PARCNT ,1,10 


14660 


31 


15138 


15140 


26290 




TR 


CHI-1, CHI+1 


146 72 


11 


14271 


00061 


2 6300 




AM 


IOLOOP, 1, 10 


14684 


14 


15139 


000?4 


26310 




CM 


CHI ,24, 10 


14696 


47 


14212 


01200 


26320 




BNE 


IOD 


14708 


17 


09084 


06124 


2 63 30 




BTM 


PUT, 124, 8, LEFT PARFN 


14 720 


11 


02615 


0006 1 


26340 




AM 


PARCNT, 1, 10 


14732 


31 


15138 


15140 


2 6350 




TR 


CHI-1 , CHI+1 


14 744 


11 


14271 


00061 






AM 


IOLOOP, 1, 10 


14756 


49 


14212 


00000 


26370 




B 


100 


14764 








26380 




DORG 


*-3 


16000 












DORG 


16000 


16000 


16 


00565 


46023 


26400 




TFM 


I0RT,*+23 


16012 


49 


00532 


69793 


264 1 




B 


I0PT,BLK4,7 


16024 


36 


00012 


00 500 






TRA 




16036 


49 


00012 












16000 








26430 




TCD 


16000 










26440 




OUT OF CORE BLOCK 5 CONTAINS THE FOLLOWING 










26450 




OUTSC 












26460 


* 


DO 






1620 FORTRAN II-D 




1-B 




NOVFMBFR, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/ L N 


LABEL 


MNEM 


OPERANDS AND REMARKS 










2 64 70 




DKIO 




102 00 












DORG 


IOUT 


10200 


16 


02359 


69793 






TFM 


FM0M+35,BLK4, , IOUT 


1 02 12 


17 


02324 


40200 


5 k ? ° 




BTM 


FMON , IOUT 


1 0224 


16 


02359 


«9747 






TFM 


FMON+35 ,BLK2 


10236 


17 


02324 


40224 


26520 




BTM 


FMON ,NONARA 


10248 


16 


02359 


69724 


26530 




TFM 


FMON+35, BLK1, , DIM 


10260 


17 


02324 


40248 


?A^tn 




BTM 


FMON, DIM 


102 72 


16 


02359 


69724 






TFM 


FMON+35, BLK1, , COMMON 




17 


02324 


40272 


26560 




BTM 


FMON , COMMON 


1 n?QA 


16 


02359 


69839 


26570 




TFM 


FMON+35, BLK6 , , IF STMNT 


1 mn» 


17 


02324 


40296 


26580 




BTM 


FMON, IF 


1 0320 


16 


02359 


69839 


26590 




TFM 


FMON+35 ,BLK6 , , GOTO 


10332 


17 


02324 


40320 


?A6?n 




BTM 


FMON, GOTO 


1 0344 


16 


02359 


69839 






TFM 


FMON+35, BLK6 , , CALL 


1 0356 


17 


02324 


40344 


26620 




BTM 


FMON ,CALL 


10368 


16 


02359 


69839 


- . , 




TFM 


FMON+35, BLK6, , RETURN 


10380 


17 


02324 


40368 






BTM 


FMON, RETURN 


1 0392 


16 


02359 


69724 


?AA^n 




TFM 


FMON+35, BLK1 , , FORMAT 


1 0404 


17 


02324 


40392 






BTM 


FMON, FORMAT 


1 04 16 


44 


12094 


02609 


26670 




BNF 


DOLOOP+36, TR IND , , DO STATEMENT 


10428 


49 


12058 


00000 


26680 




B 


DOLOOP 


1044 


16 


02359 


69770 


26690 




TFM 


FMON+35, BLK3 , , ASCAN 


10452 


17 


02324 


40440 


26700 




BTM 


FMON ,ASCAN 


10464 


43 


10884 


10100 


26710 




BD 


SCl.SINGST,, OUTSC 


1 04 76 


49 


10512 


00000 


26720 




B 


0UTSC1 


10488 


15 


02268 


00001 


26730 




TDM 


USEDFS+5,1,, DISK I/O 


10500 


49 


13172 


00000 


26740 




B 


DK I OEN 










26750 


** 


OUTSC CODE IS HERE 


12058 








26760 




DORG 


ASCAN1 










26770 


** 


OUTPUT DO STATEMENT CODF IS HERE 


12950 












OORG 


DOE+24 










76790 


** 


THE FOLLOWING INSTRUCTION IS A CHANGE TO DO STATEMENT CODF 


12950 


43 


14396 


10113 


268U0 




BD 


DKFjIOSW,, RETURN TO I/O SCAN 










26810 




DORG 


DOEE 


13110 


43 


14396 


10113 


26820 




BD 


DKF, IOSW 


13172 












DORG 


IOUTEN 














ENTER HERE TO DECODE DISK I/O STATEMENTS *** 


1 3 1 72 


32 


10488 


00000 


7 flti 


OK I OEN 


SF 


DKIO,,, FLAG FOR FETCH AMD RFCORO 


13184 


14 


15139 


00043 


9 AH All 




CM 


CHI ,43, 10 


1 31 96 


47 


13264 


01200 


26870 




BNE 


DKI01 


13208 


16 


13535 


06142 


26880 




TFM 


DKPUT+11,0142,8, FETCH SYMBOL 


13220 


14 


15141 


00048 


26890 




CM 


CHI+2,48,10, CHECK FOR H 


13232 


47 


04300 


01200 


26900 




BNE 


ERR01 


13244 


31 


15138 


15142 


26910 




TR 


CHI-1, CHI +3,, SHIFT OFF TWO CHARACTFRS 


13256 


49 


13404 


00000 


26920 




B 


DKLIST 


1 3264 








26930 




DORG 


*-3 


13264 


14 


15139 


00044 


26940 


OK 101 


CM 


CHI ,44, 10 


1 32 76 


47 


13332 


01200 


26950 




BNE 


DKI02 


132 88 


33 


10488 


00000 






CF 


DKIO,,, NO FLAG FOR FIND 


13300 


16 


13535 


06144 


26970 




TFM 


DKPUT+11,0144,8, FIND SYMBOL 


1 33 12 


31 


15138 


15140 


26980 




TR 


CHI-1 , CHI+1, , SHIFT OFF ONE CHARACTER 


13324 


49 


13404 


00000 


26990 




B 


DKLIST 


13332 








27000 




DORG 


*-3 


13332 


17 


04696 


00063 


27010 


OK 1 02 


BTM 


COLNAM,03, 10 


13344 


24 


10081 


14677 


27020 




C 


SYM,0RDCT+4 


13356 


46 


04300 


01400 


27030 




BV 


ERR01 



78 



79 



1620 FORTRAN 1 1 -D PHASE 1-B 



NOVEMBER, 1966 



o 



LOCTN 


OP 


P/L 


Q 


PG/ LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13368 


47 


04300 


01200 


27040 




BNE 


ERRO 1 


13380 


31 


15138 


15144 


27050 




TR 


CHI-1 ,CHI+5 , t 


13392 


16 


13535 


08-146 


27060 




TFM 


DKPUT+11 ,0146,8 i 


13404 


15 


02383 


ooooi- 


27070 


DKLIST 


TDM 


DISKSWt 1, 11, 


13416 


14 


15139 


0002-4 


27080 




CM 


CHI ,24, 10, 


13428 


47 


13752 


01200 


27090 




BNE 


DKER 


13440 


15 


10113 


00001 


27100 




TDM 


I OSW , 1 


13452 


31 


15138 


1 5140 


27110 




TR 


CH I— 1 ,CHI+1, , 


13464 


14 


15139 


00069 


27120 




CM 


CHI ,69,10 


134 76 


47 


1 3500 


01300 


271 30 




BL 


* + 24 


13488 


11 


13535 


oooei 


27140 




AM 


DKPUT+1 1 , 1 , 10, 


13500 


14 


15139 


00040 


27150 




CM 


CHI ,40, 10 


13512 


47 


13752 


01300 


27160 




BL 


DKER 


1 3524 


17 


09084 


60000 


27170 


DK PUT 


BTM 


PUT , , , 


13536 


1 7 


09084 


0© 124 


271 80 




BTM 


PUT, 0124, 8, 


13548 


3 2 




00000 










13560 


1 7 


05738 




?7?nn 




BTM 


r c no m *ii 5 


13572 


43 


13592 


06453 






on 




13584 


49 


1 3752 


00000 


27220 




B 




13591 








272 30 




DORG 


#—4 


13592 


14 


15 139 


00094 


27240 




CM 


CHI, 04 , 10 , 


136 04 


47 


13752 


01200 


27250 




BNE 


DKER 


13616 


17 


09084 


06-104 


27260 




BTM 


PUT , 0104 , 8 , 


13628 


44 


02626 


10488 


27270 




BNF 


BEG IN , DK 1 , , 


13640 


17 


09084 


06123 


27280 




BTM 


PUT ,0123,8, 


13652 


31 


15138 


15140 


27290 




TR 


CHI-1, CHI+1,, 


13664 


45 


13688 


15141 


27300 


DKL 


BNR 


*+24,CHI+2 


13676 


17 


09384 


00472 


27310 




BTM 


ERROR ,472 ,9 , 


13688 


3 1 


14303 


14678 


27320 




TR • 


DKSWl-l,SWSET-4», 


13700 


49 


13788 


00000 


27330 




B 


DKB 


13708 








27340 




DORG 


*-3 


13708 


45 


13728 


15141 


27350 


OKA 


BNR 


*+20,CHI+2 


13720 


49 


02626 


00000 


27360 




B 


BEGIN 


13 728 








27370 




DORG 


*-3 


13728 


14 


15139 


00023 


27380 




CM 


CHI ,23, 10 


13740 


46 


13764 


01200 


27390 




BE 


# + 24 


13752 


17 


09384 


00471 


2 7400 


DKER 


BTM 


ERROR ,471,9 


1 3 764 


1 7 


09084 


061 23 






tq M 


PUT, 0123, 8, 


13 776 


31 


15138 




?74?n 






rut — l fuTii 


13 788 


14 


151 39 


00040 


27430 




TM 


CHI, 40, 10 


















13812 


14 


1 5139 


00069 


?745n 




TM 


CHI ,69, 10 


13824 


46 


13752 


01 100 


27460 




BH 




1 3836 


32 


07068 


00000 


2 7470 




SF 




13848 


1 7 


05738 


3r3860 










13860 


45 


13880 


07295 


2 7490 




BNR 


#+20 , SMC NT ,11 


13872 


49 


13752 


00000 


27500 




B 


DKER , , , 


13880 








27510 




DORG 


# — 3 


13880 


43 


13912 


07295- 


27520 




BD 


# + 32 , SMCNT ,11, 


13892 


15 


14306 


00002 


27530 




TDM 


DKSW2,2 


13904 


49 


13924 


00000 


27540 




B 


# + 20 


13912 








27550 




DORG 


#-3 


13912 


15 


14306 


00001 


27560 




TDM 


DKSW2, 1 


13924 


43 


13944 


14304 


27570 




BD 


*+20,DKSWl 


13936 


49 


13980 


00000 


27580 




B 


DKB1+12 


13943 








27590 




DORG 


#-4 


13944 


24 


14304 


14306 


27600 




C 


DKSW1 ,DKSW2 




1620 FORTRAN 1 1 -D 


PHASE 


1 — B 






LOCTN 


OP 


P/L 


Q 


PG/ LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


i o qt a 


46 


13708 


01200 






BE 


DKA 


13 968 


17 


09384 


00473 


3-7A9H 




BTM 


ERROR, 473, 9, 




25 


14304 


14306 


27630 




TD 


DKSW1 ,DKSW2 


13 992 


49 


13708 


00000 


27640 




B 


DKA 


14000 








2 7650 




DORG 


#-3 












* 


THE FOLLOWING HANDLES IMPL 


14000 


16 


14167 


oooeo 


27670 


DKC 


TFM 


DKLOOP ,0, 10 


140 12 


14 


15139 


00024 






CM 


CHI ,24, 10 


14024 


47 


13752 


01200 


27690 




BNE 


DKER 


14036 


11 


02615 


00061 


2 7700 




AM 


PARCNT, 1, 10 


14048 


17 


09084 


06124 


27710 




BTM 


PUT, 0124, 8, 


14060 


31 


15138 


15140 


27720 




TR 


CHI-1, CHI + 1, , 


14072 


11 


14167 


00061 


27730 




AM 


DKLOOP, 1, 10 


14084 


14 


15139 


00024 


27740 




CM 


CHI ,24, 10 


14096 


46 


14544 


01200 


27750 




BE 


DKG 


141 08 


14 


15139 


00040 


2 7760 


DKD 


CM 


CHI ,40, 10 


14120 


47 


14012 


01100 


27770 




BNH 


DKC+12 


14132 


14 


15139 


00069 


27780 




CM 


CHI ,69, 10 


14144 


46 


13752 


01100 


27790 




BH 


DKER 


14156 


32 


07068 


00000 


7-7o?° 




SF 


OUTSW 


1^ 68 




00002 






DK LOOP 


DC 


2,0,* 




17 


05738 


1-4180 






BTM 


CS0RN,*+12 




45 


14200 


0729* 


27 830 




BNR 


# + 20, SMCNT, 11 


1 il Q7 


49 


13752 




27840 




B7 


DKER,,, FUNCTION 


14200 


43 


14236 


14304 


27850 




BD 


*+36,DKSWl 


1 42 1 2 


24 


14304 


14306 






C 


DKSW1 ,DKSW2 


14224 


47 


13968 


01200 






BNE 


DKB1 


14236 


25 


14304 


14306 


27880 




TD 


DKSW1 , DKSW2 


14248 


14 


15139 


00023 


27890 


DKD1 


CM 


CHI ,23, 10 


14260 


47 


14316 


01200 


27900 




BNE 


DKE 


14272 


17 


09084 


06123 


27910 




BTM 


PUT, 0123, 8, OUTP 


14284 


31 


15138 


15140 


27920 




TR 


CHI-1, CHI+1 


14296 


32 


14316 


00000 


27930 




SF 


DKE 


14304 




00002 




27940 


DKSW1 


DS 


2, #-3 


14306 




00002 




27950 


DKSW2 


DS 


2,*-l 


14308 


49 


14108 


00000 


27960 




B 


DKD 


14316 








27970 




DORG 


#-3 


14316 


44 


13752 


14316 


27980 


DKE 


BNF 


DKER, DKE 


14328 


33 


14316 


00000 


27990 




CF 


DKE 


14340 


14 


15139 


00033 


28000 




CM 


CHI ,33, 10 


14352 


47 


14012 


01200 


28010 




BNE 


DKC+12 


14364 


17 


09084 


06133 


28020 




BTM 


PUT, 01 33, 8, 


14376 


43 


12482 


06453 


28030 




BD 


DOA-36, FXORFL , , 


14388 


49 


13752 


00000 






B 


DKER 


14396 








2 80 50 




DORG 


#-3 










? n^n 




RETURN HERE FROM DO CODING 


1 439A 


14 


15139 


00064 




D 


CM 


CHI ,04, 10 


14408 


47 


13752 


01200 


28080 




BNE 


DKER 


14420 


17 


09084 


06104 


2 8090 




BTM 


PUT, 0104, 8, 


14432 


31 


15138 


15140 


28100 




TR 


CHI-1, CHI+1 


14444 


12 


02615 


00061 


28110 




SM 


PARCNT, 1, 10 


14456 


47 


13752 


01300 


28120 




BN 


DKER 


14468 


12 


14167 


00061 


28130 




SM 


DKLOOP, 1, 10 


14480 


47 


14512 


01200 


28140 




BNZ 


# + 32 


14492 


45 


13728 


15141 


28150 




BNR 


DKER-24,CHI+2 


14504 


49 


02626 


00000 


28160 




B 


BEGIN 


14512 








28170 




DORG 


#-3 



SHIFT OFF THREE CHARACTERS 
RECORD SYMBOL 

SET SW TO INDICATE DISK I/O 
CHECK FOR LEFT PAREN 



SHIFT OFF LEFT PAREN 
ADD ONE FOR LITERAL 



OUTPUT DISK I/O SYMBOL 
OUTPUT LEFT PAREN 



CHECK FOR RT PAREN 

OUTPUT RT PAREN 
BRANCH TO BEGIN IF FIND STMNT 
OUTPUT COMMA 
SHIFT OFF RT PAREN 

DISK I/O STMNTS MUST HAVE LISTS 
INIT SWITCHES 



OUTPUT COMMA 
SHIFT OFF ONE CHARACTER 



LITERAL ITEM ON LIST 



FUNCTION NAME 

DIGIT IMPLIES AN ARRAY NAME 



80 



NOVEMBER, 1966 



ARRAYS AND SIMPLE VARIABLES ON SAME I/O 



IMPLIED DO LOOPS IN LISTS 



OUTPUT LEFT PAREN 
SHIFT OFF ONE CHARACTER 



OUTPUT EQUAL SYMBOL 

GO TO DO CODING FOR IMPLIED DO LOOP 



OUTPUT RT PAREN 



81 



***** 


1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER, 1966 PAG 


L OCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


145 12 


14 


15139 


00023 


28180 




CM 


CHI ,23, 10 


14524 


47 


13752 


01200 


28190 




BNE 


DKER 


14536 


49 


14248 


00000 


28200 




B 


DKD1 


14544 








28210 




DORG 


*-3 


14544 








28220 


DKG 


BTM 


PUT, 0124, 8, OUTPUT LEFT PAR EN 


14556 


j ^ 


02615 


oooei 


28230 




AM 


PARCNT,1,10 


14568 


3 1 


151 38 


1 51 40 


28240 




TR 


CHI-lfCHI+1 


14580 


1 1 


14167 


00061 


28250 




AM 


DKL00P,1,10 


14592 


14 


15139 


00024 


28260 




CM 


CHI ,24,10 


14604 


47 


14108 


01200 


28270 




BNE 


DKD 


14616 


17 


09084 


06124 


28280 




BTM 


PUT ,0124,8 , OUTPUT LEFT PAR FN 


14628 


11 


02615 


00061 


28290 




AM 


PARCNT , 1 , 10 


14640 


31 


15138 


15140 


28300 




TR 


CHI-1 ,CHI+1 


14652 


11 


14167 


00061 


2 8310 




AM 


DKLOOP, 1, 10 


14664 


49 


14108 


00000 


28320 




B 


DKD 


146 72 








2 8330 




DORG 


*-3 


14673 




00003 


X2 


28340 


OR OCT 


DAC 


3,0RD 


14679 




00002 




28350 




DC 


2 ,00 ' 


14682 




00003 




28360 


SWSET 


DC 


3,003 


16000 








28370 




DORG 


16000 


16000 


16 


00565 


46023 


28380 




TFM 


I0RT,*+23 


16012 


49 


00532 


69816 


2 8390 




B 


IOPT,BLK5,7 


16024 


36 


00012 


00 500 


28400 




TRA 




16036 


49 


00012 












1 6000 








28410 




TCD 


16000 










28420 


* 


OUT OF CORE BLOCK 6 CONTAINS THE FOLLOWING 










28430 


* 


OUTSC 












2 8440 


* 


CALL 












28450 


* 


RETURN 










28460 


* 


IF 












28470 


* 


IFSENSESWITCH 










28480 


* 


GOTO 




10200 








28490 




DORG 


IOUT 


10200 


16 


02359 


69793 


28500 




TFM 


FM0N+35,BLK4, , I OUT 


102 12 


17 


02324 


40200 


28510 




BTM 


FMON , I OUT 


10224 


16 


02359 


69747 


28520 




TFM 


FMOM+35 ,BLK2 


10236 


17 


02324 


40224 


28530 




BTM 


FMOM.NOMARA 


10248 


16 


02359 


69724 


28540 




TFM 


FM0N+35,BLK1 , , DIM 


10260 


17 


02324 


40248 


28550 




BTM 


FMON ,0 IM 


l n^fif 


16 


02359 


69724 


28560 




TFM 


FM0N+35,BLK1,, COMMON 




17 


02324 


40272 


28570 




BTM 


FMON , COMMON 


10296 


11 


02615 


00061 


28580 




AM 


PARCNT, 01, 10, IF 


103 08 


49 


13284 


00000 


28590 




B 


IF1 


10320 


14 


15139 


00056 


28600 




CM 


CHI, 56, 10, GOTO 


1 0332 


49 


14120 


00000 


28610 




B 


GOTOEN 


1 0344 


14 


15139 


000-53 


28620 




CM 


CHI, 53, 10, CALL 


10356 


49 


12058 


00000 


28630 




B 


CALLEN 


10368 


17 


04696 


00063 


2 8640 




BTM 


COL NAM, 03, 10, RETURN 


1038 


49 


13166 


00000 


28650 




B 


RFTRN 


1 0392 


16 


02359 


69724 


28660 




TFM 


FM0N+35,BLK1 , , FORMAT 


1 0404 


17 


02324 


40392 


28670 




BTM 


FMON, FORMAT 


1 04 16 


16 


02359 


69793 


28680 




TFM 


FM0N+35.BLK4, , DOO 


1042 8 


17 


02324 


40416 


28690 




BTM 


FMON ,000 


1044 


16 


02359 


69770 


28700 




TFM 


FM0N+35.BLK3, , ASCAN 


10452 


17 


02324 


40440 


28710 




BTM 


FMON ,ASCAN 


10464 


43 


10884 


10100 


28720 




BD 


SC1,SINGST,, OUTSC 


104 76 


49 


10512 


00000 


28730 




B 


0UTSC1 


v * * * * 


1620 FORTRAN II-D 


PHASE 


1-B 




NOVEMBER, 1966 PAGf 




OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


104 8 8 


16 


02359 


69816 


28740 




TFM 


FMON+35 ,BLK5 , , DISK INPUT/OUTPUT 


105 00 


17 


02324 


40488 


28750 




BTM 


FMON , DK 10 










28760 


** 


OUTSC CODE IS HERE 


12058 








28770 




DORG 


ASCAN1 










28780 


*#* 


ENTER HERE TO DECOMPOSE CALL STATEMENT *** 


12058 


47 


04300 


01200 


28790 


CALLEN 


BNE 


ERR01 


12070 


31 


15138 


15140 


2 8800 




TR 


CHI-1, CHI+1 


12082 


17 


04696 


00064 


28810 




BTM 


C0LNAM,04, 10 


12094 


24 


1008 1 


13129 


28820 




C 


SYM,EXITCT+6 


12106 


46 


12154 


01400 


28830 




BV 


CALLER-48 


12118 


46 


12662 


01200 


28840 




BE 


EXITCD 


12130 


24 


10081 


13137 


28850 




C 


SYM,L INKCT+6 


12142 


46 


12718 


01200 


28860 




BE 


LINKCD 


12154 


15 


10111 


00001 


2 8870 




TDM 


CALLSW, 1 


121 66 


17 


09084 


06138 


28880 




BTM 


PUT , 138, 8, CALL 


12178 


14 


15139 


00040 


28890 




CM 


CHI, 40, 10 


12190 


46 


12214 


01100 


28900 




BH 


* + 24 


12202 


17 


09384 


00279 


28910 


CALLER 


BTM 


ERROR, 279, 9, INCORRECT CALL NAME OR LIST 


12214 


14 


15139 


00069 


28920 




CM 


CHI, 69, 10 


12226 


46 


12202 


01100 


28930 




BH 


CALLER 


122 38 


32 


07068 


00000 


28940 




SF 


OUTSW 


12250 


17 


05738 


42262 


28950 




BTM 


CS0RN,*+12 


1 2262 


45 


12338 


15141 


2 8960 




8NR 


CALLB,CHI+2 


1 22 74 


43 


12318 


02611 


28970 




BD 


CALLA, INSW 


12286 


17 


09084 


06153 


2 8980 




BTM 


PUT, 0153, 8, FUNCTION OPERATOR CALL 


1 22 98 


15 


0729* 


00000 


28990 




TDM 


SMCNT, ,6 


12309 




00001 




29000 




DC 


1,3,* 


12310 


49 


02626 


00000 


29010 




B 


BEGIN 


12318 








29020 




DORG 


*-3 


12318 


45 


08004 


07295 


29030 


CALLA 


BNR 


ERR09, SMCNT, 11 


12330 


49 


02626 


00000 


29040 




B ■ 


BEGIN 


12338 








29050 




DORG 


*-3 


12338 


43 


12362 


10102 


29060 


CALLS 


BD 


*+24,FNTSW 


12350 


17 


09384 


00279 


29070 




BTM 


ERROR, 279, 9, SYM PREVIOUSLY USED NOT AS CALL NAME 


12362 


44 


12382 


10102 


29080 




BNF 


*+20,FNTSW 


12374 


49 


12350 


00000 


29090 




B 


*-24,,, TRYING TO CALL SINGLE STATMNT FUMCT 


12382 








29100 




DORG 


*-3 


12382 


15 


10102 


00000 


29110 




TDM 


FNTSW,0 


12394 


14 


15139 


00024 


29120 




CM 


CHI ,24, 10 


12406 


47 


12202 


01200 


29130 




BNE 


CALLER 


124 18 


17 


09084 


06124 


29140 




BTM 


PUT, 124, 8, LEFT PAR EN 


12430 


11 


02615 


00061 


291 50 




AM 


PARCNT, 1 , 10 


1 2442 


14 


15141 


00064 


29160 




CM 


CHI+2,4,10, TFST FOR NO FUNCTION ARGUFMENTS 


12454 


46 


12202 


01200 


29 1 70 




BE 


CALLER 


1 2466 


16 


10463 


44678 


29 1 80 


CALL 1 


TFM 


ASCAN+23 ,CLASEN 


12478 


49 


10440 


00000 


29190 




B 


ASCAN,,, GO TO ARITHMETIC SCAN 


12486 








29200 




DORG 


*-3 


12486 


14 


15139 


00033 


29210 


CALL2 


CM 


CHI, 23, 10, TEST FOR MORE ARGUEMENTS 


12498 


47 


12530 


01200 


29220 




BNE 


* + 32 


12510 


17 


09084 


06123 


29230 




BTM 


PUT, 123,8 , COMMA 


12522 


49 


12466 


00000 


29240 




B 


CALL1 


12530 








29250 




DORG 


*-3 




14 


15139 


00064 


29260 




CM 


CHI ,4, 10 


12542 


46 


12574 


01200 


29270 




BE 


* + 32 


12554 


16 


10463 


42658 


29280 




TFM 


ASCAN+23, ASCI 


12566 


49 


10440 


00000 


29290 




B 


ASCAN,,, GO TO SCAN ARITH FXPRFSSIOM OPFRATOR 


12574 








29300 




DORG 


*-3 



8Z 



83 



***** 



1620 FORTRAN II-D 



PHASE 1-B NOVEMBER, 1966 



PAGE 54 



LOCTN 


OP 


P/L 




PG/LN 


LABEL 




OPERANDS AND REMARKS 


12 574 








29310 






PUT , 104, 8, RIGHT PAREN 


12586 


1 2 


02615 


oooei 






SM 


D A or MT -1.1ft 
r AKU IN 1 , 1 , 1U 


12598 


3 1 


151 38 


1 5140 


29330 




TR 


CHI— 1 iCHI+1 


12610 


46 














12622 


45 


12486 


1 5141 


29350 




RNR 


r a i 1 j rui + o 


12634 


49 


12202 


00000 










12642 














**3^" 








15141 


29380 




B 


CALL ER , CH I +2 


12654 


4Q 




UUvUU 


29390 






BEGIN 


12662 












nnur 






45 


12154 


15149 






BMD 


L ALL t K— ho , Ln 1 + iU 


12674 




02609 


0000% 


29420 




TDM 


TR I ND ,1,11 


12686 


17 


09 084 


061 3 1 


29430 




BTM 


PUT, 0131, 8, CALL EXIT SYMBOL 




)■ ^ 




06140 






BTM 


DllT nlin a. ntlMMV 
rU 1 ,Ul"rU,o, UunnT 


12710 


49 


02626 


00000 


29450 




B 


BEGIN 


12718 








29460 




D0RG 


*-3 


12718 


14 


15147 


000 2-4 


29470 


L INKCD 


CM 


CHI+8,24, 10 


12730 


46 


12762 


01200 


29480 




BE 


* + 32 ' 






r?inn 








BNR 


CALLER— 48 , CH I +8 


1 Tic* 


4Q 

49 


04 300 


00000 


29 500 




B 


ERR01 


12762 
















1 2 762 








?olan 






1 K 1 riu ,1,11 


1 2 774 


1 7 






. : " 




RTM 


diit n l ci9 a rAil it Mil cvMtini 

rU 1 ,UlI>£,o, LULL L 1 NIn JinDUL 


1 2786 


1 7 










BTM 


DllT n 1 An Q 


12798 


1 7 


09084 


08-140 


29550 




BTM 


diit n l An Q 

rUl , U 1HU , tl 


12810 


3 1 


15138 


1 5148 


29560 




TR 


CHI— 1 ,CHI +9 


12822 


14 


15139 


00040 


29570 




C M 


Chi, 40 ,10 


12834 


47 


1 2202 


1 100 










1 2 846 


14 


151 39 










put .aq. in 
uni ,07, lu 


12858 


46 


12202 


01 100 






RH 


CALLER 


12870 


3 i_ 










TD 


nilTAD . M A 1 \t 






13139 


15139 






TC 


OUT AR+ 1 , CH I 


1 2894 


3 1 


15138 


151 40 






TR 




12906 


16 


1 2968 


1-3 141 


?q n 




TFM 


LKCD3+6,0UTAR+3 








00040 


29650 




CM 


rm .An. in 


12930 


47 


13006 


1 100 


29 660 




BNM 


LKCD4 


1 2 942 






1 2968 


29670 




BNR 


( urna i i/pnaj.*. l i 




AO 

49 


04 300 


00000 


29680 




B 


ERR01 










29690 




D0RG 


*-3 


- 

12962 


26 


00000 


1 51 39 


29700 


LKCD3 


TF 


,CHI , 


12974 


3 1 


15138 


15140 


29710 




TR 


CHI-1 ,CHI+1 


1 2 986 


1 1 


12968 


00062 


29720 




AM 


LKCD3+6 ,02 , 10 


1 2998 


49 


12918 


00000 


29730 




B 


LKCD1 










29740 




D0RG 


* — 3 






151 39 


00004 


29750 


LKC04 


CM 


CHI, 04, 10 


13018 


47 


ntann 










ERR01 


13030 


4 5 




15143 


?Q77n 




RMB 

BNR 


EDDni TUT a. A 


1 3042 


3 3 




00000 


?Q7«n 






OUT AR + 2 


1 3054 


33 


13144 


00000 


29790 




r c 


OUTAR+6 


13066 


33 


1 3 148 


00000 


29800 




CF 


0UTAR+ 10 


13078 


27 


09084 


13141 


29810 




BT 


PUT ,0UTAR+3 


13090 


27 


0908-V 


13145 


29820 




BT 


PUT.OUTAR+7 


13102 


27 


09084 


13149 


29830 




BT 


PUT.OUTAR+ll 


13114 


49 


02626 


00000 


29840 




B 


BEGIN 


13122 








29850 




00RG 


*-3 


13123 




00004 


X2 


29860 


EXITCT 


DAC 


4, EXIT 


13131 




00004 


X2 


29870 


LINKCT 


DAC 


4, LINK 


-■<*#*-# 


1620 FORTRAN II-D 


PHASE 


1 — B 




NOVEMBER, 1966 PAGE 




OP 


P/L 





PG/ LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13138 




00014 




29880 


OUTAR 


DSS 


14 


13155 




00004 




29890 




DC 


4,0 


13152 




00000 




29900 


MASKLK 


DS 


,*-3 


13159 




00004 




29910 




DC 


4,0 


13163 




00004 




29920 




DC 


4,0 


13165 




00002 




299 30 




DC 


2,03 










29940 


*** 


ENTER HERE TO OUTPUT RETURN STATEMENT *** 




24 


10081 


13283 


299 50 


RETRN 


C 


SYM,URNCT+4 


l ai 7fi 


47 


04300 


01200 






BNE 


ERR01 


13190 


43 


13234 


02293 


29970 




BD 


*+44,SUBFCT 


13202 


17 


09440 


00577 


29980 




BTM 


ERR0R2 ,577 ,9 


13214 


43 


02626 


02610 


29990 




BD 


BEGIN, NOIND 


1322 6 


49 


02638 


00000 


30000 




B 


BEG I NA 


13234 












DORG 


*-3 


13234 


17 


09084 


06-139 


30020 




BTM 


PUT, 139,8 , RETURN 


1 3246 


17 


09084 


06140 






BTM 


PUT, 140, 8, DUMMY 




15 


05673 


00001 


30040 




TDM 


RTSW.l 


13270 


49 


02626 


00000 


30050 




B 


BEGIN 


13278 








30060 




DORG 


*-3 


13279 




00003 


X2 


30070 


URNCT 


DAC 


3, URN 










30080 


****** 


OUTPUT IF CODING ****** 










30090 


****** 




****** 


132 84 


15 


02609 


00001- 


30100 


IF1 


TDM 


TRIND,1,11, SET ' TRANSFER INDICATOR ON 


13296 


17 


09084 


06107 


30110 




BTM 


PUT, 107,8, IF SYMBOL 




17 


09084 


06124 


30120 




BTM 


PUT, 124, 8, LEFT PAREN SYMBOL 


} „?, 


43 


13340 


10101 


30130 




BD 


*+20,D0TRAN,, TEST IF DO LOOP ENDING WITH TRANSFER 




49 


13352 


00000 


30140 




B 


* + 20 


i i aaA n 








ani t° 




DORG 


*-3 


l aaAn 


17 


09440 


00-571 






BTM 


ERROR2,571,9 


13352 


15 


10107 


00001 


am 7n 




TDM 


IFSW,1,, SET SWITCH TO I ND I CAT IF STATEMENT 


1 3364 


16 


05677 


00063 


am on 




TFM 


STC,3,10 


13376 


14 


15139 


00064 


30190 




CM 


CHI, 04, 10, TEST FOR VACEOUS PARENS 


1 3388 


46 


13468 


01200 


30200 




BE 


ERR02 










30210 


* 


IFSS CODE 


1 3400 


17 


04696 


000 H 


30220 




BTM 


COLNAM, 11, 10 


1 34 12 


24 


10081 


14321 






C 


SYM.SENSWC+20 


1 ata* 


46 


13448 


01400 


anoAn 




BV 


* + 24 


, o7f a 


46 


13480 


01200 


anssn 




BE 


ERR02+12 




16 


10463 


•14658 


an?An 




TFM 


ASCAN+23, IFASEN 


13460 


49 


10440 


00000 


an37n 




B 


ASCAN,,, GO TO SCAN EXPRESSION 


1 3468 








30280 




DORG 


*-3 


1 3468 


17 


09 384 


00672 


30290 


FRR02 


BTM 


ERROR ,72,9 




31 


15138 


15160 


ana?n 




TR 


CHI-1, CHI+21 


1 aAa3 


17 


09084 


06130 






BTM 


PUT , 130,8, SENSE SWITCH SYMBOL 


13504 


14 


15139 


000?0 


30320 




CM 


CHI, 70, 10 


13516 


46 


13540 


01100 


30330 




BH 


* + 24 


13 528 


17 


09384 


00474 


30340 




BTM 


ERROR, 174,9, SWITCH NUMBER IN ERROR 


13540 


15 


10106 


00001 


30350 




TDM 


DIMSW,1 


13552 


17 


05446 


1-3564 


30360 




BTM 


CSTN0,*+12, 


13564 


15 


10106 


00000 


30370 




TDM 


DIMSW.O 




32 


10078 


00000 






SF 


SYM-3 


13588 


27 


09084 


10081 


30390 




BT 


PUT.SYM,, PUT OUT SWITCH NUMBER 


13600 


14 


15139 


00064 


30400 




CM 


CHI, 4, 10, LOOK FOR RIGHT PAREN 


13612 


47 


13468 


01200 


30410 




BNE 


ERR02 


13624 


12 


02615 


00061 


30420 




SM 


PARCNT, 1, 10 


13636 


17 


09084 


06104 


30430 




BTM 


PUT , 104, 8, RIGHT PAREN SYMBOL 


13648 


16 


05677 


00062 


30440 




TFM 


STC,2,10, SET UP TO OUTPUT TWO STATEMENT NDMBFRS 



84 



t 



***** 


1620 FORTRAN 1 1 -D 


PHASE 


LOCTN 








PG/LN 


13660 


31 


15138 


15140 


30450 


13672 


32 


07068 


OOOOO 


30460 


13684 


14 


15139 


00069 


30470 


13696 


46 


13720 


O11O0 


30480 


13708 


17 


09384 


00475 


30490 


13720 


17 


05446 


43732 


30500 


13732 


43 


1 3752 


02611 


30510 


13744 


49 


13776 


OOOOO 


30520 


13752 








30530 


13752 


1 1 


07242 


00064 


30540 


13 764 






?rn nfi 


30550 


13776 


43 


1 ™» 




30560 


13788 




nRA77 


nnnoi 


30570 


13800 


46 


1 3864 


n i nri 


30580 


13812 






15141 


30590 


13824 


4Q 


n?6?2 


OOOOO 


30600 


13832 








30610 


13832 




09384 




30620 


13844 


I J 


0944 o 


00-573 


30630 


13856 


49 


02626 




30640 


13864 








30650 


13864 


4 


5 


00023 


30660 


13876 




1 3 (08 


1200 


30670 


13888 


4 5 


1 3660 


15143 


30680 


13900 


49 


1 3708 


00000 


30690 


13908 








30700 


13908 


14 


15139 


00064 


30710 


13920 


47 


13864 


01200 


30720 


13932 


12 


02615 


00061 


30730 


13944 


31 


15138 


1 5140 


30740 


13956 


1 7 


09084 


06 104 


30750 


13968 


45 


13992 


15141 


30760 


13980 


1 7 


09384 


00 i-76 


30770 


13992 


1 4 


15139 


0O0H-3 


30780 


14004 


4 7 


13980 


1 200 


30790 


14016 


3 1 


1 5 1 38 


1 51 40 


30800 


14028 








30810 


14040 


47 


l M«n 




30820 


14052 


14 


1 S 1 




30830 


14064 


46 


1 39HD 


n l inn 


30840 


14076 




057 




30850 


14088 


43 


3Q«n 


07295- 


30860 


14100 


2 7 




07241 


30870 


14112 


49 




00000 


30880 


14120 








30890 










30900 


14120 






01 200 


30910 


14132 




02609 


0000-1 


30920 


14144 


43 


14164 


10101 


30930 


14156 


49 


14 1 76 


00000 


30940 


14164 








30950 


14164 


17 


09440 


00S71 


309 60 


14176 


31 


15138 


15140 


30970 


14188 


14 


15139 


00034 


30980 


14200 


46 


14244 


01200 


30990 


14212 


16 


05677 


00061 


31000 


14224 


17 


09084 


06105 


31010 



NOVEMBER, 1966 



LABEL MNEM OPERANDS AND REMARKS 



SF 
CM 



BTM 
BTM 



B 



CHI-1 ,CHI+1 

OUTSW 

CHI ,69, 10 

* + 24 

ERROR, 175,9, 
CSTN0,*+12,, 
*+20,INSW 

* + 32 



DORG *-3 

AM SMADD,4,10 

BD 0UTSNE-12,SMADD, 11 

BD 0UTSN2,CGT0, , 

SM STC,1,10 

BH OUTSNE+20 

BNR *+32,CHl+2 

B BEGIN 

DORG *-3 

BTM ERROR ,77 , 9 

OUTSNE BTM ERR0R2 ,573 ,9 , 

B BEGIN 

DORG *-3 

CM CHI, 23, 10 

BNE OUTSN+48 

BNR 0UTSN,CHI+4 

B OUTSN+48 

DORG *-3 

0UTSN2 CM CHI, 4, 10 

BNE OUTSNE+20 

SM PARCNT,1,10 

TR CHI-1, CHI+1 

BTM PUT, 104, 8 

BNR *+24,CHI+2 

0UTSN3 BTM ERROR , 176,9, 

CM CHI, 23, 10 



INCORRECT STATEMENT NUMBER 

COLLECT AND OUTPUT STATEMENT NUMBER 



BRANCH IF IN COMPUTFD GO TO 



INCORRECT NUMBER OF STATEMENT NUMBERS 



INDEX OF COMP. GO TO MISSING OR INVALI) 



BNE 
TR 



-24 



TEST FOR FIXED POINT VA R 



CHI-1 , CHI+1 
CHI ,49, 10, 
0UTSN3 
CHI , 55 , 10 
0UTSN3 
CS0RN,*+12 
0UTSM3,SMCNT, 11 
PUT,SMADD-1 
OUTSNE-32 
-3 

*** ENTER HERE TO OUTPUT GO TO STATEMENT 

GOTOEN BNE ERR01 

TRIMD, 1, 11, 
*+20,D0TRAN 
* + 20 



BL 



BTM 
BO 



DORG 



TDM 



SET TRAMS INDICATOR 



DORG 
BTM 



TFM 
BTM 



ERR0R2,571,9 
CHI-1 , CHI+1 
CHI ,24, 10, 
COM PUT 
STC,1,10 

PUT, 105, 8, GO TO SYMBOL 



TFST FOR COMPUTED GO TO 



1620 FORTRAN II-D 



LOCTN 


OP 


P/L 





14236 


49 


13672 


OOOOO 


142 44 








14244 


17 


09084 


06106 


14256 


17 


09084 


06124 


14268 


11 


02615 


00061 


14280 


15 


10108 


0000 1 


14292 


49 


13660 


OOOOO 


14300 








14301 




00011 


X2 


16000 








16000 


16 


005 6 5 


46023 


16012 


49 


00532 


69839 


16024 


36 


00012 


00 500 


16036 


49 


00012 




16000 








03130 








03131 




00082 


X2 


03130 




OOOOO 




03295 




00009 


X2 


03316 




00005 




03318 


43 


03350 


02220 


03330 


43 


03362 


02221 


03342 


49 


03374 




03350 


15 


03304 


00007 


03362 


15 


03306 


00007 


03374 


25 


03309 


02222 


03386 


25 


03307 


02221 


03398 


25 


03305 


02220 


03410 


34 


OOOOO 


00971 


03422 


34 


OOOOO 


00962 


03434 


16 


00565 


63457 


03446 


49 


00532 


63477 


03458 


11 


02222 


00061 


03470 


49 


0331? 




03481 




00005 


63131 


03484 




00003 




03486 


26 


03781 


09383 


03498 


43 


03662 


02228 


03510 


25 


03749 


02724 


03522 


25 


03747 


02723 


03534 


25 


03745 


02722 


03546 


25 


03743 


02721 


03558 


25 


03757 


02597 


03570 


25 


03759 


02598 


03582 


25 


03761 


02599 


03594 


25 


03763 


02600 


03606 


16 


00565 


63629 


03618 


49 


00532 


63725 


03630 


47 


03694 


03400 


03642 


16 


03317 


63694 


03654 


49 


03318 




03662 


16 


00565 


63685 


03674 


49 


00532 


63733 


03686 


49 


03630 




03694 


16 


02510 


47207 



PHASE 1-B 

PG/LN LABFL MNEM OPERANDS AND REMARKS 



NOVFMBFR, 1966 



31020 
31030 
31040 
31050 
31060 
31070 
31080 
31090 
31100 
31110 
31120 
31130 
31140 

31150 
31160 
31170 
31180 
31190 
31200 
31210 
31220 
31230 
31240 
31250 
31260 
31270 
31280 
31290 
31 300 
31310 
31320 
31330 
31340 
31350 
31360 
31370 
31380 
31390 
31400 
31410 
31420 
31430 
31440 
31450 
31460 
31470 
31480 
31490 
31500 
31510 
31520 
31530 
31540 
31550 
31560 
31570 



BRANCH TO OUTPUT STATEMENT NUMBER 



DORG 
COM PUT BTM 
BTM 
AM 
TDM 
B 

DORG 
SEMSWC DAC 
DORG 
TFM 
B 

TRA 



PUT, 
PUT, 
PARCMT, 
CGT0,1 
OUTSN , , 



106,8 (COMPUTED GO TO SYMBOL 
124, 8, LEFT PAREN SYMBOL 
1,10 



BRANCH TO OUTPUT • STA TEMFMT NUMBFRS 



11,SENSESWITCH 
16000 
IORT,*+23 
I0PT,BLK6,7 



TCD 16000 

DORG FLIP2 

0FL02 DAS 82,,, 

PRNT4 DS .0FL02-] 

DAC 09, PAGE 



13, , 



HEADER INFORMATION 



PAGE CONSTANT 



** PRINT OVERFLOW PAGE HEADING AND RETURN 

DC 5,12345 

OFLO BD 0NE,PGNUM-2 

BD TW0,PGNUM-1 

B7 NONUM 

ONE TDM PRNT4+174.7 , , 

TWO TDM PRNT4+176 ,7 , , 

NONUM TD PRNT4+179,PGNUM,,, 

TD PRNT4+177 ,PGNUM-1 

TD PRNT4+175, PGNUM-2 

34 ,0971,, 

34 ,0962,, 

TFM I0RT,*+23,, 

B I0PT,0FL01-4,7, 

AM PGNUM,01,10, 

0FL03 B7 OFLO-1,,6, 

0FL01 DS A 0FL02 

DC 3,183,, 
** ERROR MESSAGE ROUTINE 



ZERO SUPPRESS STUFF 



PAGE NUMBER 



SKIP TO 1 IMMEDIATE 
DOUBLE SPACE AFTER PRINT 
T010RT-PRINT PAGE HFAD 

ADD 1 TO PAGE NUMBER 
RETURN INDIRECT 

PAGE OVERFLOW DEFIMER 



TF 

BD 



TD 
TD 



CHAN12 BNI 
TFM 



LIST1 TFM 



EREXT TFM 



ERMES1+14, ERROR 
LISTl.LIST-,, 
ESN01+6,ESN0 ,, 
ESN01+4,ESN0-1 
ESN01+2 ,ESN0-2 
ESN01.ESN0-3 
ESNOPl+2,ESNOPL-3 
ESN0Pl+4,ESN0PL-2 
ESN0P1+6,ESN0PL-1 
ESN0P1+8.ESN0PL 
IORT, *+23 
I0PT,N0LIST-4,7 
EREXT, 3400, , 
OFLO-1 , EREXT,, 
OFLO 

IORT,*+23, ,, 
I0PT,ERR-4,7 
CHAN12 

BLK9A + 5 , FLOP 1 , , 



1,,L0AD THE ERROR NUMBER 
TOTAL LISTING 

NO LISTING-PRINT COMPLETE MESSAGE 



TEST PRINTER CHAM12 

SET UP ERROR EXIT AFTER OFLOW INDICATION 



PRINT ERROR IF LISTING 



MODIFY DDA 



87 



1620 FORTRAN II-D PHASE 1-B 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


03706 


16 


02496 


69428 


31 580 




TFM 


RETR +6.E94620,, 


MODIFY RETURN ADDRESS 


03718 


49 


02466 




31590 




B7 


FLOP,,, 


RESTORE PARTIAL 


03 729 




00005 


6-3743 


31600 


NOLIST 


OSA 


ESN01 




03732 




00003 




31610 




DC 


3,183,,, 


DEFINER PRINT LONG ERROR XXXX+XXXX ERRORXX 


03737 




00005 


63767 


31620 


ERR 


DSA 


ERMES1 




03 740 




00003 




31630 




DC 


3,189,,, 


DEFINER PRINT SHORT ERROR XX 


03743 




00004 


X2 


31640 


ESN01 


DAC 


4,0000 




03751 




00002 


X2 


31650 




DAC 


2, + 




03755 




00005 


X2 


31660 


ESN0P1 


DAC 


5, 0000 




03 764 




00002 




31670 




DSC 


2,00 




03767 




00009 


X2 


31680 


ERMES1 


DAC 


9, ERROR 003 




03784 


16 


02510 


•17207 


31690 


CDOFLO 


TFM 


BLK9A+5 ,FL0P1 , , 


MODIFY DDA 


03 796 


26 


02496 


02525 


31700 




TF 


RETR +6,PRTCHI-1 


, MODIFY RETURN ADDRESS-CHI PRINT 


03808 


16 


03317 


92466 


31710 




TFM 


OFLO-1 ,FLOP,, 


SET BRANCH TO RESTORE PARTIAL 


03820 


49 


03318 




31 720 




B7 


OFLO 












31 730 


** ROUTINE 


TO SCAN AND PRINT 


CHI FOR P/T OR TYPE INPUT 


03828 


16 


03863 


1-5137 


31740 


SCN1 


T FM 


SCN2+ll,CHI-2,, 


INITIALIZ START OF SCAN 


03840 


1 1 


03863 


0008-2 


31750 




*^ 


SCN2+11.2, 10, 


UP THE CURRENT LOCATION 


03852 


45 


03840 


00000 


31760 


SCN2 


BNR 


SCN1+12,*-*, , 


IS THIS AN RM 


03864 


16 


03899 


45359 


31770 






SCN3+11.CHI+220, 


INITIALIZE END OF FIRST PRINT OUT 


03876 


16 


04094 


■15139 


31780 




TCU 


PRNT2 ,CHI , , 


INITIALIZE DEFINFR 


03888 


14 


03863 


eoooo 


31790 




ru 


SCN2+1 1,*-*, , 


. IS THIS THE END 


03900 


46 


03956 


01100 


31800 






SCN4 




03912 


17 


04042 


6-3924 


31810 




BTM 


PRNT 1 , *+ 12 , , 


YES 


03924 


16 


02510 


1-7207 


31820 




TFM 


BLK9A+5 , FLOP 1 , , 


MODIFY DDA FOR RETURN 


03936 


16 


02496 


6-2798 


31830 




TFM 


RETR +6 , LNGPRT , , 


MODIFY RETURN ADDRESS 


0394 8 


49 


02466 




31840 




B7 


FLOP, , , 


RESTORE PARTIAL AND RETURN 


03956 


26 


04036 


03899 


31850 


SCN4 


TF 


SAVE,SCN3+11,11, 


NO-SAVE THE CHARACTER 


0396 8 


16 


038 99 


07936 


31860 




T FM 


SCN3+ll,*+*,6, 


SET RM AT END 


03979 




00002 




31870 




DC 


2,03,* 




03980 


17 


04042 


6-3992 


31880 




BTM 


PRNT1 , *+ 12 , , 


PRINT THIS INCREMENT 


03992 


26 


03899 


04036 


31890 




TF 


SCN3+11,SAVE,6, 


RESTORE CHARACTER 


04004 


26 


04094 


03899 


31900 




TF 


PRNT2 , SCN3+ 11,, 


MOVE PRINT DEFINER HIGHFR 


04016 


11 


03899 


00520 


31910 




AM 


SCN3+11,220,9, 


UP THE POINTER 


0402 8 


49 


03888 




31920 




B7 


SCN3 




04036 




00002 




31930 


SAVE 


DC 


2,99 




04041 




00005 




31940 




DC 


5,99999 




04042 


16 


00565 


6-4065 


31950 


PRNT1 


TFM 


IORT, *+23, , 


PRINT THE INPUT STATEMENT 


04054 


49 


00532 


8-4090 


31960 




B 


I0PT,PRNT2-4,7 




04066 


47 


04044 


03400 


31970 




BNI 


PRNTl-1,3400,6, 


TEST PRINT CHAN 12 BRANC BACK INDIRECT 


04078 


1 7 


03318 


&4041- 


31980 




BTM 


OFLO, PRNT1-1, 711 


-GO TO OVERFLOW WITH RETURN ADDRESS 


04 094 




00005 


15139 


31990 


PRNT2 


DSA 


CHI 




04097 




00003 




32000 




DC 


3,183, , 


PRINT P/T OR TYPE INPUT 


04098 


16 


02510 


47207 


32010 


INITAL 


TFM 


BLK9A + 5 , FLOP 1 , , , 


MODIFY DDA 


041 10 


16 


02496 


40544 


32020 




TFM 


RETR +6 , P RSCN 1 , , 


SET RETURN ADDRESS 


04122 


17 


03318 


62466 


32030 




BTM 


OFLO, FLOP , , , 


GO TO OVERFLOW WITH CALL PARTIAL 


16000 








32040 




DORG 


16000 




16000 


16 


00565 


46023 


32050 




TFM 


IORT, *+23 




16012 


49 


00532 


6-2497 


32060 




B 


I0PT,BLK9,7 




16024 


36 


00012 


00500 


32070 




TRA 






16036 


49 


00012 














16000 








32080 




TCD 


16000 




00000 








32090 




DEND 
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ZUB12B 


14174 


ZUBC12 


14150 


ZUBCDS 


14102 


ZUBCAB 


14126 


Z0DE17 


10242 


Z0DE15 


10218 


Z00E14 


10194 


Z0DE12 


10170 


ZODESS 


10266 


ZDSSAB 


10290 


ZDCALL 


10410 


YUB12B 


14174 


YU6C12 


14150 


YUBCDS 


14102 


YUBCAB 


14126 


Y0DE17 


10242 


Y0DE15 


10218 


Y0DE14 


10194 


Y0DE12 


10170 


YODESS 


10266 


YDSSAB 


10290 


YDCALL 


10410 


XUB12B 


14174 


XUBC12 


14150 


XUBCDS 


14102 


XUBCAB 


14126 


X0DE17 


10242 


XDDE15 


10218 


X0DE14 


10194 


X0DE12 


10170 


XODESS 


10266 


XDSSAB 


10290 


XDCALL 


10410 


WUB12B 


14174 


WUBC12 


14150 


WUBCDS 


14102 


WUBCAB 


14126 


VRFRBK 


11188 


USEDCR 


13343 


USDCR1 


12993 


TYPE 1 2 


13732 


TYPERM 


08253 


TYPEM2 


13717 


TYPEK3 


14662 


TYPEK2 


14647 


TYPECR 


08662 


TYPECN 


08677 


TBLEND 


14689 


SYSCAL 


00475 


SWAREA 


09325 


SVTYNB 


13489 


SVSTNO 


03692 


SUB12B 


14174 


SUBPSW 


05075 


■ SUBC12 


14150 


SUBCnw 


13637 


SUBCDS 


14102 


SUBCAB 


14126 


STEMP2 


09319 


STEMP1 


09318 


SRCFFL 


04636 


SKI PSW 


09599 


SETNMT 


03694 


SETFCT 


03508 


SAVCOW 


07365 


SARGSW 


13632 


SADCOW 


11215 


RXFLAG 


05035 


RTNAME 


09476 


RGRNUL 


05784 


RFXSUB 


0415 7 


RFLSUB 


04152 


REMGET 


05704 


RECORD 


13206 


PUT17I 


14468 


PUT17C 


14556 


PUT17B 


14604 


PUTX17 


13642 


PUTX12 


13686 


PUTPCH 


07874 


PUTNXT 


07770 


PUTINS 


07074 


PUTEST 


07054 


PUTDIF 


07470 


PUTCAD 


07394 


PUSTSM 


02294 


PUNTAP 


04107 


PREBUF 


08631 


PBL0K1 


14310 


PATSB2 


15450 


PATSBO 


15786 


PASS I I 


02400 


PARCNT 


12341 


OUTSEO 


07610 


OUTARA 


15300 


N60182 


14764 


N60107 


14,832 


N60101 


14638 


N60099 


14552 


N60095 


14512 


N60092 


14488 


N60085 


14820 


N60084 


14776 


N60072 


12850 


N60049 


1 1786 


N60048 


11392 


N60046 


11056 


N60045 


10974 


N60044 


10882 


N60043 


10752 


N60041 


10684 


N60035 


13594 


N60034 


13570 


N60032 


13268 


N60027 


12984 


N60026 


12948 


N60023 


12746 


N60022 


12490 


N60021 


12544 


N60020 


12364 


N60018 


11956 


N60017 


11688 


N60016 


11758 


N60015 


11910 


N60014 


11360 


N60013 


11468 


N60010 


10862 


N60009 


10838 


N60007 


107 94 


N40012 


03836 


N400 11 


03831 


N40010 


03826 


N40009 


03821 


M40008 


03816 


N40007 


03811 


N40006 


03806 


N40005 


03801 


N40004 


03796 


N40003 


03791 


M40002 


03786 


N40001 


03781 


N40000 


03776 


N20001 


03837 


N20000 


03772 


N147RM 


13773 


N13133 


09364 


N13092 


09357 


N13089 


09352 


N13063 


09460 


N13062 


09465 


N07495 


13751 


N02393 


11155 


N02383 


03687 


N01300 


09552 


N01200 


09559 


N01100 


09539 


N00951 


11050 


N00900 


11055 


N00796 


09606 


N00716 


13761 


N00565 


13756 


NINERM 


13419 


MONCAL 


00796 


MODMES 


12075 


MNCLOV 


06300 


MINUS1 


14478 


MATRET 


13148 


LSTYPF 


08310 


LENGTH 


02248 


LCOMAD 


13377 


LCMAD1 


13009 


J40004 


09530 


JARNDT 


15842 


INSETB 


11179 


INSETA 


11155 


INDREC 


12157 


HEADER 


02218 


GTSBSW 


06892 


GTFLCL 


06682 


GTBLKB 


02800 


GTBLKA 


02795 


GRBAGF 


13560 


GCLEAR 


06656 


FXTOFL 


04142 


FXORFL 


04673 


FXIOSW 


15448 


FULMES 


09391 


FULLCK 


06264 


FLTOFX 


04147 


FLAGSW 


05095 


FCT1G1 


10822 


FCTRTP 


14702 


FCTEND 


02318 


FACTRC 


02227 


EOTONY 


13078 


E0PRT1 


14666 


EOPETE 


13102 


EOJSTN 


13022 


EOJRIT 


13222 


FOJEND 


12538 


ENDTRC 


02830 


ENDMES 


13651 


D4LNEG 


15854 


DOTEMP 


14892 


DOBASE 


04102 


DISKDD 


142 94 


DIOEND 


13191 


COUNTS 


14691 


COMXSW 


09600 


COMPAR 


14598 


CODMAT 


12858 


C0DE9P 


12164 


C0DE9C 


12812 


C0DE9B 


12564 


CODE 9A 


12662 


CODERP 


13722 


CODE 7 P 


1 1236 


CODE 7C 


11596 


C0DE7B 


12022 


C0DE6P 


10438 


C0DE6B 


10624 


C0DE6A 


10676 


C0DE4P 


13436 


C0DE4A 


13512 


C0DE3Z 


13334 


C0DE3Y 


12858 


C0DE3X 


13280 


C0DE3P 


12274 


C0DE3E 


13214 


C0DE3D 


13094 


C0DE3C 


12846 


C00E3B 


12698 


C0DE3A 


12568 


C0DE17 


10242 


C0DE15 


1021B 


C0DE14 


10194 


C0DE12 


10170 


C0DE1X 


11216 


C0DE1P 


10434 


C0DE1H 


10716 


C0DE1G 


11586 


C0DE1F 


11716 


C0DE1E 


1111R 


C0DE1D 


11562 


C0DE1C 


1 1036 


C0DE1B 


10944 


C0DE1A 


10584 


CODESS 


10266 


CODEPA 


12100 


CODARR 


11882 


CLLBLK 


13622 


Cn99NF 


11232 


CD17XX 


14408 


CD17SC 


14372 


CD14SV 


10940 


CD14SL 


10960 


CD14RV 


10900 


CD14RM 


11334 


CD14RL 


10920 


CD14NR 


11382 


CD14ND 


12826 


CD14NC 


12570 


CD14NB 


12274 


CD14NA 


12112 


CD14JW 


11002 


CD14JG 


10980 


CD14FV 


10690 


CD14FL 


10784 


CD14EN 


12766 


CD12BP 


14198 


CDS1FP 


15394 


CDSSS3 


14832 


CDSSS1 


14948 


CDSSAB 


10290 


CDSAB8 


14914 


CDSAB7 


14554 


CDSAB5' 


14706 


CDSAB4 


14750 


CDSAB3 


14762 


CDSAB2 


14634 


CDSAB1 


14506 


CDSABZ 


15090 


CDSABX 


15022 


CDL INK 


13224 


CDCALP 


13212 


CDCALL 


10410 


CDABXT 


15422 


CANDSA 


08846 


CANDRT 


08910 


CALLSW 


09320 


CALLBK 


13617 


CALBLK 


13609 


R10MAD 


14800 


BEGTRC 


02810 


ADTEMP 


02394 


ADJUST 


03842 


ACCTAP 


04087 


ACCEPT 


04077 


ADCOW 


06843 


ADCW1 


12985 


ADD 


09380 


ADSL 


02724 


AM 


09335 


ANS 


02389 


ARNDT 


12962 


ASTOP 


04217 


ATYPE 


04172 


8 


06848 


BAL 


08312 


BCOW 


13642 


BD 


09561 


BE 


09554 


BEGAD 


02257 


BGNST 


15999 


BI 


09570 


BL 


09547 


BLANK 


09344 


BLKH 


12503 


BLKHA 


12511 


BLK1 


09116 


BLK1A 


09124 


BLK2 


09140 


BLK2A 


09148 


BLK3 


09164 


BLK3A 


09172 


BLK4 


09188 


BLK4A 


09196 


BLK5 


09212 


BLK5A 


09220 


BLK6 


09236 


BLK6A 


09244 


BLK7 


09260 


BLK7A 


09268 


BLK8 


09284 


BLK8A 


09292 


BNF 


09563 


BNH 


09541 


BNR 


13644 


BT 


09370 


BTM 


06846 


BUF1 


08326 


BUF2 


08401 


BUF3 


08476 


BUF4 


08551 


B8DAD 


17340 


C 


09543 


CALLX 


05055 


CANDS 


08712 


CDABP 


15308 


CDABU 


15214 


CDABW 


14436 


CDABZ 


14368 


CDLGT 


13361 


CDPCH 


13310 


COSSP 


14202 


CDS1S 


15542 


CDS1T 


15188 


CDS1V 


14960 


CDS1Z 


15498 


CDXIT 


13786 


CD117 


13786 


CD12A 


14812 


CD12B 


10314 


CD12C 


14244 


CD12D 


14282 


CD12E 


14352 


CD12P 


14198 


CD12X 


14408 


CD12Y 


14258 


CD14A 


11422 


CD14B 


12008 


CD14C 


11852 


CD14E 


12446 


CD14M 


12690 


CD14P 


10434 


CD15P 


13776 


CD17A 


12926 


CD17B 


13400 


CD17C 


13138 


CD17D 


13198 


CD17E 


13328 


CD17F 


13246 


CD17G 


14276 


CD17H 


14244 


CD17I 


13636 


CD17J 


13668 


CD17K 


13830 


CD17L 


13850 


CD17M 


13592 


C017N 


13750 


CD17P 


12874 


CD94 


12064 
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CD95 


12052 


CD96 


11752 


CD97 


11740 


CD98 


11684 


CD99 


11696 


CET 


13354 


CF 


09331 


CGCOW 


12162 


CKCOW 


09311 


CKFMT 


03420 


CKSW 


05105 


CKXH 


13936 


CLEAR 


02628 


CM 


09545 


CM96 


13156 


CM97 


13126 


CM98 


12966 


CM99 


12990 


CODET 


08304 


CODEO 


03764 


C0DE1 


10002 


CODE 3 


10026 


C0DE4 


10050 


C0DE5 


03250 


CODE 6 


10074 


C0DE7 


10098 


C0DE8 


10122 


C0DE9 


10146 


CODOA 


12658 


COMSW 


04451 


CSW 


13412 


DFLMS 


14313 


DI 


06858 


DI P 


16018 


DIP1 


16002 


DJ 


06868 


DK 


06878 


DMSW 


04450 


DOA 


09453 


DOMAX 


09525 


DOMES 


14895 


DOREF 


04042 


DOSW 


09321 


DRAY 


13196 


DSKHD 


14285 


DX 


08987 


DY 


08991 


DI 


06853 


D2 


06863 


D3 


06873 


04 


06883 


EMI 


09091 


ENDM1 


13017 


EOJ 


10386 


EOJG 


12148 


EOJJ 


12 044 


EOJP 


12008 


EOJW 


12376 


EOJWG 


12292 


EOPRT 


14382 


EOROD 


13290 


ERMOD 


12042 


ERRT 


08998 


ERSWT 


09601 


ETYPE 


04197 


EX I NO 


09322 


EXIT 


03206 


EXITA 


14856 


F 


02250 


F AC 


09469 


F AC AD 


04232 


FACM2 


09568 


FAF5 


14696 


FAF6 


15100 


FANS 


04974 


FBASE 


03977 


FCODE 


04979 


FCTRT 


10362 


FCTSW 


02293 


FCT1 


10338 


FCT1A 


10894 . 


FCT1B 


11432 


FCT1C 


11464 


FCT1D 


11476 


FCT1E 


12120 


FCT1F 


11388 


FCT1G 


10800 


FCT1H 


10974 


FCT1J 


11738 


FCT1K 


11444 


FCT1L 


1 1930 


FCT1P 


10438 


FCT11 


10634 


FCT12 


11536 


FCT13 


11286 


FETCH 


13211 


FFRSW 


05065 


FIND 


13201 


FIVE 


09471 


FLAD 


04012 


FLDVD 


04122 


FLEXP 


04062 


FLGRM 


08290 


FLG2 


07334 


FLG3 


07354 


FLG4 


07374 


FLMUL 


04052 


FLRDV 


04132 


FLSUB 


04112 


FLV 


04758 


FMON 


02324 


FORCB 


04932 


FORCC 


04992 


FORCE 


04680 


FOUR 


13648 


FPCL 


15182 


FPSW 


09597 


FPSWX 


09598 


FP2 


02298 


FREQ1 


13233 


FRE02 


13399 


FRFAC 


04222 


FRV 


04842 


FSW 


09314 


FTSW 


05045 


FTYPE 


04192 


FT 1 


04991 


FX 


04007 


FXAD 


04017 


FXDVD 


04127 


FXEXP 


04067 


FXMUL 


04057 


FXRDV 


04137 


FXSUB 


04117 


GA 


06457 


GADD1 


06434 


GBASE 


09575 


GCNT 


06007 


GCOW 


06705 


GETSY 


02 72 8 


GETX 


02676 


GF LAG 


06332 


GFREE 


06458 


GI 


06601 


GISMO 


0971R 


GI. NO 


09378 


GNONE 


06040 


GNRP 


05830 


GPUT 


06188 


GPUTA 


06320 


GRMK 


08626 


GSBI 


11672 


GTCL 


06606 


GT F I N 


15442 


GTJW 


06404 


GTNS 


05540 


GTPT 


05984 


GTSCL 


06714 


GTST 


06494 


GYES 


05936 


H 


09339 


HTYPE 


04207 


I 


09485 


IFTRC 


02226 


INPUT 


09616 


INSET 


11096 


10 


04237 


IOCAL 


00716 


IOEND 


04242 


IOGT 


00566 


IOPT 


00532 


IORT 


00565 


101 


09315 


102 


09316 


103 


09317 


ITUSO 


15898 


ITYPE 


04187 


IX I 


04247 


J 


09490 


JAY 


02367 


JWG 


02460 


K 


02252 


L 


06891 


LH 1 


12750 


LIS 


04258 


LIST 


02228 


LNG 


09578 


LNGAD 


08317 


LOCOM 


02262 


LSTAD 


02308 


LSTN 


09084 


LV 


09505 


LVAL 


05013 


LVP 


13179 


L12 


02850 


L13 


02 862 


L15 


02898 


L2 


03042 


L2383 


02966 


L3 


03186 


MAT 


04257 


MM 


09337 


MNS5 


09455 


MOD 


09366 


MOVR 


14562 


MPY 


09368 


NAME 


13785 


NEXT 


08322 


NGFRE 


06526 


NLNG 


08297 


NM22 


13768 


N0NUM 


14174 


NOTYP 


03628 


Nl 


02233 


N2 


02238 


N2TH0 


13766 


OBASE 


02917 


OFLOl 


14106 


ONE 


14150 


0NE2 


13646 


OP 


02379 


OPGT 


03990 


OPJ 


15649 


OPSR 


03888 


OPSX 


03959 


0PT1 


03995 


OPX 


04493 


OPY 


13181 


OPZ 


09596 


P 


09495 


PAGE 


14281 


PAR 


04252 


PBLOK 


14346 


PGNUM 


02222 


PPJA 


15922 


PRINT 


04027 


PRST 


02229 


PUNCH 


04 097 


PUTA 


08138 


PUTC 


08018 


PUTCA 


08114 


PUTCB 


08078 


PUTD 


08102 


PUTGT 


07193 


PUTRM 


08222 


PUTTA 


07750 


PUTX 


06898 


PUTXA 


06958 


PUTXB 


06982 


PUTXC 


07134 


PUTXD 


07230 


PUTXE 


07266 


PUTXF 


07290 


PUTXG 


07530 


PUTXH 


07694 


PUTXI 


07854 


PUTXJ 


07730 


PUTXX 


08268 


PUTXY 


08276 


PUTXZ 


08281 


PUTX2 


13590 


PUT1 


08636 


PUT 17 


14520 


PUT2 


08641 


PUT3 


08646 


PI 


09589 


P2PTR 


02313 





09500 


OZP 


15044 


RCTY 


09372 


READ 


04037 


RFCLG 


02243 


RFDO 


04202 


REGSW 


09324 


REP 


04182 


REP1 


13197 


REP2 


13327 


REP3 


14371 


RFP4 


04022 


RFLAG 


05025 


RGR 


05600 


RGR I 


05654 


RGRS 


05695 


RMNS 


05510 


R MOD 


09388 


RMSW 


05085 


RPNS 


05570 


RSNFL 


04162 


RSNFX 


04167 


RSW 


09325 


RTAD 


09510 


RV 


09515 


RVAL 


05015 


RVSN 


09385 


SBASE 


04671 


SCABP 


14202 


SCNT 


09611 


SCMT2 


13001 


SECTO 


13586 


SECTY 


13594 


SFTAD 


03763 


SF 


09329 


SIX9Z 


13488 


SK 


10881 


SL 


02399 


SLASH 


04177 


SLC 


11072 


SLNG 


08293 


SM 


09382 


SPCOM 


16577 


SOLNG 


08299 


SR 


02372 


SRFCT 


04276 


SR GT 


04398 


SRNX 


04392 


SRSY 


0434 7 


SSLNG 


08295 


SSSW 


09313 


SSI 


07342 


SS2 


07343 


SS3 


07344 


SS4 


07345 


ST 


09481 


SUB 


09359 


SUBSW 


09323 


SUB1 


0407 2 


SUB2 


04082 


SUB3 


04092 


SWF 


13186 


SX 


02377 


SXF 


09520 


SX17 


13137 


SY 


02384 


SY17 


14243 


TBASF 


02303 


tcow 


06 835 


TF 


09333 


TFM 


09327 


TMAX 


06838 


TOFAC 


04227 


TRACE 


04032 


TRCSW 


02840 


TSW 


13413 


TWO 


14162 


TYPE 


04047 


TYPFA 


08692 


TYPFT 


08291 


TYPEX 


08647 


Tl 


06888 


T2 


09534 


T3 


09594 


UFSTR 


02263 


IIGRMK 


02323 


VARFR 


11156 


W 


02240 


WATY 


09374 


WW 


02296 


XCTRT 


14678 


XCT1 


10338 


XD12R 


10314 


X0DE1 


10002 


X0DF3 


10026 


X0DE4 


10050 


X0DE6 


10074 












10146 


XO J 




X R MN S 


1 2984 




16002 




16002 


XTYPE 


04212 


XUUX 


16002 


XVVX 


16002 


xwwx 


16002 


XX 1 


14614 


XX2 


14548 


XX3 


14482 


XX4 


14672 


XX 5 


14890 


XYYX 


16016 


xzzx 


16002 


XOOX 


16002 


YCTRT 


10362 


YCT1 


10338 


YD12B 


10314 


Y0DE1 


10002 


Y0DF3 


10026 


Y0DE4 


10050 


Y0DE6 


10074 


Y0DF7 


10098 


YODEfi 


10122 


Y00E9 


10146 


YOJ 


10386 






















SECOND 


PASS FORTRAN II 














NOVEMBER, 


1966 


PAGE 


3 














SYMBOL 


TABLE 














ZER05 


09344 


ZER06 


09345 


Z0DE1 


10002 


Z0DE3 


10026 


ZHD64 


10050 


Z0DF6 


10074 


Z0DE7 


10098 


Z0DE8 


10122 


Z0DE9 


10146 


ZOJ 


10386 


ZPT 


15714 


ZRM 


15497 











90 



91 



***** 




SECOND 


PASS FORTRAN 


II 








NOVEMBER, 1966 


LOCTN 


OP 


P/L 


Q 




1 ABPI 


MNFM 


OPERANDS AND REMARKS 










000 10 


****** 




SECOND PASS FORTRAN II 


00532 




00000 




00020 


IOPT 


DS 


1 532 




00565 




00000 




00030 


IORT 


DS 


1 565 




00566 




00000 




00040 


IOGT 


DS 






00796 




00000 




00050 


MONCAL 


DS 






00716 




00000 




00060 


IOCAL 


DS 


' 716 




00475 




00000 




00070 


S YSCAL 


OS 


,475 




02218 








00080 




DORG 


2218 




022 18 




00014 




00090 


ncHuti\ 


DSS 






02222 




00003 






D£MI 1 M 
r WINU n 


DS 


3 • 2222 




02233 




00002 




001 10 


Nl 


DS 






02238 




00005 




00 1 20 


N2 


DS 






02240 




00002 




00130 


W 


DS 






02243 




00003 




00140 


RECLG 


DS 






02248 




00005 




001 50 


L ENGTH 


OS 


j: 




02250 




00002 






c 


DS 


2 




02252 




00002 








DS 


2 




02257 




00005 




noi «n 




DS 






02262 




00005 




00190 


LOCOM 








02263 




00030 




00200 


UFSTR 


DSS 


30 




02293 












DS 






022 94 




0000 1 




00220 


PUSTSN 


DS 


1 




02296 




00002 




00230 


WW 


DS 


2 




02298 




00002 




00240 


FP2 


OS 


2 




02303 




00005 




00250 


TBASE 


DS 


5 




02308 




00005 




00260 


LSTAD 


DS 


j? 




023 13 




00005 




00270 


P2PTR 


DS 






02318 




00005 




00280 


FCTEND 


DS 






02323 




00005 




00290 




DS. 






02 32 3 




00001 




00300 


UGRMK 


DGM 


2323 




02324 


26 


02366 


02323 


00310 


FMON 


TP 


* + 42 


, FMON~* 1 


02336 


16 


00565 


8-2359 


00320 




TFM 


I ORT 


, * + 23 


02348 


49 


00566 


80000 


00330 




g 


I OGT 


, , 7 


02360 


49 


00000 


00000 


00340 




g 






02367 








00350 




DORG 


*-4 




02367 




00001 




00360 


JAY 


DS 


1 




02372 




00005 




00370 


SR 


DS 


00005 , , 


SR , , 


02377 




00005 




00380 


SX 


DS 


00005 , , 


SX , , 


02379 




00002 




00390 


OP 


DS 


00002 1 , 


OP , , 


02 3 84 




00005 




00400 


S Y 


DS 


00005 f , 


SY , , 


02389 




00005 










00005 , » 


ANS , , 






00005 




00420 


A nT CM D 




00005 , , 


ADTEMP , , 


02 3 99 




00005 










00005 , t 


SL , , 


1 7340 




00000 




00440 


B8DAD 


DS 




,, DISK ADDRESS OF PAGE HEADING 


14800 




00000 




00450 


B 1 OMAO 


DS 


, 14800, 


,, CORE STORAGE OF PAGE HEADING 


0222 6 




00000 










,2226 




02227 




00000 




00470 


FACTRC 


DS 


,2227 




02228 




00000 




00480 






,2228 




02229 




00000 




00490 


P RST 


DS 


,2229 




02400 


26 


09578 


02296 


00500 


PA SS 1 1 


j p 


LNG 


,WW 


02412 


26 


06843 


022 57 


00510 




JF 


ADCOW.B 


EGAD 


02424 


11 


06843 


00081 


00520 




AM 


ADCOW, 1 


, 10 










00530 




S 


ET ADDRESS IN ADCOW TO EVEN 


02436 


17 


03842 


66843 


00540 




BTM 


ADJUST, 


ADCOW 


02448 


26 


02257 


06843 


00550 




TF 


BEGAD, ADCOW 










00560 




INITIALIZE 


02460 


33 


06843 


00000 


00570 


JWG 


CF 


ADCOW 




***** 




SECOND 


PASS FORTRAN 


II 








NOVEMBER, 1966 


1 ffTN 


DP 


P/L 






LABEL 


MNEM 


OPERANDS AND REMARKS 


02472 


26 


0828 1 


02 308 


00580 




TF 


PUTXZ 


, LSTAD 


02484 


16 


00565 


62 507 


00590 




TFM 


IORT 


,* + 23 


02496 


49 


00566 


68 26 8 


00600 




B 


I OGT 


.PUTXX ,7 


02 508 




08322 


02313 


00610 




A 


NEXT 


,P2PTR 


02 52 


26 






nn6^n 




TF 


PREBUF 


,NEXT 


02 532 


1 2 


08322 


0006 1 






SM 


NEXT 


,1 ,10 


02544 


32 


08 290 


00000 


00640 




SF 


FLGRM 




02 556 


26 


09525 


04102 


00650 




TF 


DOMAX 


,DOBASE , , 










00660 




TF 


* + 18 


, PREBUF , , . 


02580 


31 


08326 


09642 






TR 


BUF1 


,INPUT+26 , , 


02592 


1 1 


02586 


00035 


00680 




AM 


*-6 


,75 ,10, 


02604 


14 


02586 


68626 


00690 




CM 


*-18 


,BUF4+75 , , 


02616 


47 


02580 


01300 


00700 




BL 


*-36 




0262R 


43 


10314 


09 321 


00710 


CLEAR 


BD 


CD12B,D0SW 










00720 


* 


SET UP STRING RECORD CONSTANTS 


0264 


15 


16000 


00000 


00730 




TDM 


BGNST+1 




0265 1 




0000 1 








DC 


1,3,* 




02652 


26 


09325 


09352 


00750 




TF 


SWAREA 


,N13089 


02664 


16 


03786 


46003 


00760 




TFM 


N40002, 


BGNST+4 












*********************************************************** 


02 6 76 


4 5 


02728 


0961 6 




GETX 


BNR 


GETSY, 


INPUT ,, .CHECK IF INPUT AREA EXHAUSTED 


02688 


1q 


n -_ _ 


7 


nn7A6 
uu fbb 




TFM 


I0RT,*+19 ,,,YES - GET SOME MORE 




49 






00768 




B7 


IOCAL 




02707 




00002 




00770 




DSC 


2,2 




02 7 1 3 




00005 


62795 






DS A 


GTBLKA 


02 7 14 




0000 1 








DC 


1,3 




02 7 16 


1 1 


02800 


00061 


00776 




AM 


GTBLKB 


,1,10 


02 724 




00002 




nn 777 


ADSL 


DSC 


2,23,* 


-3 


02728 


26 


03786 


096 19 


00778 


GETSY 


TF 


-N40002 , INPUT+3 ,,,MOVE SYMBOL INTO STACK 


02 740 


14 


096 19 


00432 


00780 




CM 


INPUT+3,-132,9 ,, .CHECK FOR TRAILER SYMBOL 


02752 


31 


09616 


09620 


00782 




TR 


INPUT, 


INPUT+4 ,, .REMOVE SYMBOL FROM INPUT AREA 


02764 


46 


02850 


01200 


00783 




BE 


L12 


... BRANCH IF TRAILER SYMBOL 


02776 


11 


03786 


00064 


00784 




AM 


N40002 


.4, 10 


02788 


49 


02676 




00785 




B7 


GETX 




02795 




0000 1 




00788 


GTBLKA 


DSC 


1,0 




02800 




00005 


60600 


00790 


GTBLKB 


DS A 


600 




02803 




00003 




00792 




DC 


3,001 




02808 




00005 


69616 


00794 




DSA 


INPUT 




02809 




0000 1 








DC 


1,3 




02810 


15 


02840 


00004 


00797 


BEGTRC 


TDM 


TRCSW, 


-1 ,,,TURN ON TRACE SWITCH 


02822 


49 


02628 




00797 




B7 


CLEAR 




02830 


15 


02840 


00000 


00797 


ENDTRC 


TDM 


TRCSW, 


,,,TURN OFF TRACE SWITCH 


02840 




00000 




00797 


TRCSW 


DS 


,*-l 




02 842 


49 


02628 




00797 




B7 


CLEAR 




02 85 


31 


03786 


02724 


00798 


L12 


TR 


-N40002,ADSL , , , CLEAR FLAG + SET R EC . MARK 










00 800 










02862 


16 


09485 


06001 


00910 


L13 


TFM 


T 


,1 ,8 


02 874 


27 


noli t 


06713 


°?of n 




BT 


GTSCL 


,GTSCL-1 


02886 


1 1 


096 1 1 


00061 






AM 


SCNT 


,1 ,10 










00931 


*********************************************************** 


028 98 


14 


16003 


00t54 


00931 


L15 


CM 


BGNST+4, 154,9 




46 


02810 


1 200 


00931 




BE 


BEGTRC 


,,, CHECK FOR BEGIN TRACE 


02922 


14 


16003 


004 53 


00931 




CM 


BGNST+4, 153 ,9 


02934 


46 


02830 


01200 


00931 




BE 


ENDTRC 


,,, CHECK FOR END TRACE 


02 946 


43 


02966 


02290 


00932 




BD 


*+20,UFSTR+27 , , , BRANCH IF DIAGNOSTIC MODE 


02958 


49 


03042 




00933 




B7 


L2 




02966 


25 


03692 


09611 


00934 


L2383 


TD 


SVSTNO 


,SCNT ,,,PLACE LINE COUNT AFTER STATEM 



9Z 



***** 




SECOND 


PASS FORTRAN 


II 










NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 


02978 


14 


16007 


00434 


00934 




CM 


BGNST+8 


,134 


9 


02990 


46 


03042 


01200 


00935 




BE 


L2 




,,,SKIP IF ST. NO. COMING UP 


03002 


25 


07345 


09610 


00935 




TD 


SS4,SCNT-1 


,,,SET FLAG IF LINE COUNT TEN OR OVER 


03014 


17 


06898 


€3030 


00936 




BTM 


PUTX,*+16 


,,,PLACE INSTRUCTION IN THE OUTPUT 


03030 




00005 


66846 


00937 




DSA 


BTM, N02383, SVSTNO 


03035 




00005 


63687 














03040 




00005 


63692 






















00939 












03042 


17 


05540 


63058 


00940 


L2 


BTM 


GTNS 




,* + 16 


03058 




00005 


6-9485 


00950 




DSA 


I 






03063 




00005 


6-9 505 


00960 




DSA 


LV 






03064 


14 


09505 


06152 


00970 




CM 


LV 




,152 ,8 


03076 


46 


03186 


01100 


00980 




BH 


L3 






03088 


26 


03786 


09485 


00990 




TF 


N40002 




,1 


03100 


11 


03786 


0006-2 


01000 




AM 


N40002 




,2 ,10 


031 12 


17 


05540 


63128 


01010 




BTM 


GTNS 




,* + 16 


03128 




00005 


63786 


01020 




DSA 


N40002 






03133 




00005 


69515 


01030 




DSA 


RV 






03134 


17 


04680 


63150 


01040 




BTM 


FORCE 




,* + 16 


03150 




00005 


69505 


01050 




DSA 


LV 






03155 




00005 


69515 


01060 




DSA 


RV 






03160 




00005 


62389 


01070 




DSA 


ANS 






03162 


14 


02389 


60000 


01080 




CM 


ANS 






03174 


47 


02389 


01200 


01090 




BNE 


ANS 




, ,6 


03186 


11 


09485 


00061 


01100 


L3 


AM 


I 




,1 ,10 


03198 


49 


03042 


00000 


01110 




B 


L2 






03206 








01120 




DORG 


*-3 






03206 


14 


09485 


00061 


01130 


EXIT 


CM 


I »i.io 






03218 


46 


03042 


01200 


01140 




BE 


L2 






03230 


12 


09485 


00061 


01150 




SM 


I 




,1 ,10 


03242 


49 


03042 


00000 


01160 




B 


L2 






03250 








01170 




DORG 


*-3 














01180 


****** 


OUTPUT STATEMENT NUMBER ADDRESSES 


03250 


12 


09485 


00061 


01190 


C0DE5 


SM 


I 




,1 ,10 


03262 


17 


05510 


63278 


01200 




BTM 


RMNS 




,*+16 


03278 




00005 


69485 


01210 




DSA 


I 






03283 




00005 


62399 


01220 




DSA 


SL 






03284 


26 


09594 


02399 


01230 




TP 


T3, 


SL 




03296 


17 


05510 


63312 


01240 




BTM 


RMNS 




,* + 16 


03312 




00005 


6948 5 


01250 




DSA 


I 






03317 




00005 


6950 5 


01260 




DSA 


LV 






03318 


17 


05540 


63334 


01270 




BTM 


GTNS 




,*+16 


03334 




00005 


69485 


01280 




DSA 


I 






03339 




00005 


62372 


01290 




DSA 


SR 






03340 


14 


02372 


06140 


01300 




CM 


SR, 


140, 


8, DUMMY 


03352 


47 


03420 


01200 


01310 




BNE 


CKFMT 






03364 


15 


09321 


00001 


01320 




TDM 


DOSW 




, 1 


03376 


17 


05510 


63392 


01330 




BTM 


RMNS 




,*+16 


03392 




00005 


6948 5 


01340 




DSA 


I ,SR 






03397 




00005 


62372 














03398 


17 


05540 


63414 


01350 




BTM 


GTNS 




,*+16 


03414 




00005 


6948 5 


01360 




DSA 


I ,SR 






03419 




00005 


62372 














03420 


14 


02372 


06128 


01370 


CKFMT 


CM 


SR, 


128 , 


8 , FORMAT 


03432 


47 


03508 


01200 


01380 




BNE 


SETFCT 


















BTM 


PUTX 




,* + 16 


03460 




00005 


66848 


01400 




DSA 


B, BLANK, 


BLANK 


***** 




SECOND 


PASS FORTRAN 


I I 










NOVFMBFR, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 


03465 




00005 


69344 














03470 




00005 


69344 














03472 


26 


09520 


06843 


01410 




TF 


SXF 




, ADCOW 


03484 


12 


09520 


00040 


01420 




SM 


SXF 




,10 ,10 


03496 


12 


06843 


00066 


01430 




SM 


ADCOW 




,6 ,10 


03508 


26 


03762 


02399 


01440 


SETFCT 


TF 


SETAD-1 




,SL 


03520 


15 


03763 


00004 


01450 




TDM 


SETAD 




,4 


03532 


45 


03694 


03763 


01460 




BNR 


SETNMT 




, SETAD ,11 


03544 


15 


03763 


00005 


01470 




TDM 


SETAD 




,5 , , 


03556 


31 


09084 


03763 


01480 




TR 


LSTIM 




, SETAD ,11, 










01483 


******* 




^************3 




03568 


26 


03691 


09087 


01485 




TF 


SVSTNO- 


l,LSTN+3, ,MOVE STATEMENT NUMBER 










01487 












03580 


33 


09084 


00000 


01490 




CF 


LSTN 






03592 


16 


09611 


60000 


01500 




TFM 


SCNT 














01500 


*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$$$.*$.«$$$$$ 


03604 


15 


03763 


00064 


01610 




TDM 


SETAD, 4, 


10 




03616 


26 


03763 


06843 


01620 




TF 


SETAD 




, ADCOW ,6 


03628 


15 


03763 


00009 


01630 


NOT YP 


TDM 


SETAD 




,9 


03640 


15 


03763 


oooot 


01640 




TDM 


SETAD 




,1 ,611 


03652 


14 


02372 


06128 


01650 




CM 


SR 




,128 ,8 


03664 


46 


10242 


01200 


01660 




BE 


C0DE17 














01665 


**************##*#**##*&*:;<**########*#**#*## 


03676 


49 


02898 




01670 




B7 


L15 






03687 




00005 


62383 


01673 


N02383 


DSA 


-2383 






03692 




00005 


60000 


01677 


SVSTNO 


DSA 

















01680 


*..... 










03694 


26 


03786 


03763 


01690 


SETNMT 


TF 


N40002 




, SETAD ,11 


03706 


33 


03786 


00000 


01700 




CF 


N40002 






03718 


12 


03786 


00064 


01710 




SM 


N40002 




,4 , 10 


03730 


17 


08138 


63746 


01720 




BTM 


PUTA 




,*+16 


03746 




00005 


63786 


01730 




DSA 


N40002 , ADCOW 




03 751 




00005 


66843 














03752 


49 


03544 


00004 


01740 




B 


SETFCT+36 


,4 


03763 




00000 




01750 


SETAD 


DS 


, * 






03 764 


49 


03206 


00000 


01760 


CODEO 


B 


EXIT 






03772 








01770 




DORG 


*-3 






03772 




00000 




01780 


N20000 


DS 






,* + l 


03776 




00005 




01790 


N40000 


DS 


5 






03781 




00005 




01800 


N40001 


DS 


5 






03786 




00005 




01810 


N40002 


DS 


5 






03791 




00005 




01820 


N40003 


DS 


5 






03796 




00005 




01830 


N40004 


DS 


5 






03801 




00005 




01840 


N40005 


DS 


5 






03806 




00005 




01850 


N40006 


DS 


5 






03811 




00005 




01860 


M40007 


DS 


5 






03816 




00005 




01870 


N40008 


DS 


5 






03821 




00005 




01880 


N40009 


DS 


5 






03826 




00005 




01890 


N40010 


DS 


5 






03831 




00005 




01900 


N40011 


DS 


5 






03836 




00005 




01910 


N40012 


DS 


5 






03837 




00000 




01920 


N20001 


DS 






, * + l 










01930 


****** 


FORTRAN ADJUST 


PROCEDURE ****** 


03841 




00005 




01940 




DS 


5 






03842 


13 


03844 


00065 


01950 


ADJUST 


MM 


*-l,5,610, 


MULTIPLY ADCOW BY 5 


03854 


43 


03868 


00099 


01960 




BD 


*+14,99 






03866 


42 


00000 


00000 


01970 




BB 









C, 



***** 




SECOND 


PASS FORTRAN 


II 








LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARK 










01980 




D0RG 




03868 




0384-1 


oooei 






AM 


ADJUST-1, 1,610, 




42 


UUUUU 


UUUUU 






BB 




n3RR7 








02010 




D0RG 


*-4 










02020 


***** 


FORTRAN OP SEARCH ROU 


03888 


26 


03959 


038B? 








DQCV 1 11 
Uro A , *— 1,11, 






03887 








AM 

AM 


OPSR— 1,5, 10 




?A 


n^«R7 


0388? 


02050 




TF 


0PGT,0PSR—1, 11 


03924 


11 

: 


03887 


0008*1 


02060 




AM 


OPSR-l, 1, 10 


03936 


16 


03995 


©■29 17 


02070 




TFM 


0PT1 , OBASE 




2 1 




Annnn 
UUUUU 






A 


0PT1-1 , , , 


03959 




00000 




02090 




DS 


'* 


03960 


43 


03984 


04007 


02100 




BD 


#+24 , FX , » 














SM 


OPTl ,5,10, 


„, 


?A 


00000 


00000 


021 20 




TF 


, , » 


03990 




00000 




02130 


0PGT 


DS 


, *-5 


03995 




00000 




02140 


0PT1 


DS 


, # 


03996 


49 


0388? 


00000 


02150 




B 


OPSR-l , , 6, 


04007 




0000 1 




02160 


FX 


DS 


1 , * 


ni n! I 




00000 




021 70 


0BASE 


DS 


, #+10— 1 100 
















5 , 0409 


0401 7 




00005 




n?i an 


c vAn 


nr 




04022 




00005 




n??nn 


EOi 


nr 




04 07 7 




00005 




n?7i n 


INT 


nr 


5 04354 


04032 




00005 




07?^n 


TO AT E 


nr 


5 , 03496 


04037 




00005 






o tin 


nr 


5,04426 


04 04? 




00005 




r\->oi n 


D0REF 


nr 


nnnnc i7Ann nriDCC 

UUUUI> , IfoUU, lUUKCr) 


nL.rsL.-i 




00005 




n??en 




nr 




04052 




00005 




n97 An 




nr 
DC 




04 05 7 




00005 




02270 


F ymiii 


DC 


5 , 03950 


04062 




00005 




022 80 


ci cvn 


DC 


5 , 04258 






00005 






CYCYD 


DC 


5 , 04234 


nin73 




00005 




nj^nn 
„ 


^ IB1 


DC 


5,-02258 


04077 




00005 






Arr cdt 


DC 


5 ,04378 


04082 




00005 






siir? 

,,.1-TAn 


DC 


5,-02263 


04087 










A CC T A P 


DC 


5 ,04402 






00005 




n?7in 
n^c 




DC 


5,-02268 


ninQ7 




UUUUj 




02350 


PUNCH 


DC 


5,04330 


nil n? 
04102 




00005 




02360 


00BAS E 


DC 


00005, 17600, ,D0BASE 






00005 




02370 


PUNTAP 


DC 


5,04306 


041 12 




00005 




02380 


FLSUB 


DC 


5,04066 


04 1 17 




00005 




02390 


FXSUB 


DC 


5 ,03902 


04 122 




00005 




02400 


FL DVD 


DC 


5 , 04162 


04127 




00005 




02410 


FXDVD 


DC 


5 , 03974 


nii-^7 




00005 




02420 


FL RDV 






nil lI 




U UUUD 




02430 


FXRDV 


DC 


5,03998 






00005 






FXT0FL 


nc 


5 ,04042 


041 47 




00005 




n^icn 




DC 


5,03854 


041 52 




00005 




nPiAn 


R F L S U B 


DC 


5 ,04114 


04 15 7 








n?i7n 


o c v c i ir 


DC 


5,03926 


041 62 




00005 




0?4«n 


» twcy 


DC 


5,04020 


04167 




00005 




074QO 




DC 


5,04020 


041 72 




00005 




02500 


ATYPE 


DC 


5,04536 


041 77 




00005 




02510 


SLASH 


DC 


5 ,06676 


04182 




00005 




02520 


REP 


DC 


5,07126 


04187 




00005 




02530 


ITYPE 


DC 


5,04448 


04192 




00005 




02540 


FTYPE 


DC 


5,04558 



NOVEMBER, 1966 



ADD 1 TO ADCOW 



riNE ****** 

MOVE IN PARAMETERS 



GENERATE TABLE ADDRESS 

IS IT FIXED OR FLOATING VARIABLE 
FLOATING, ADJUST TABLE ADDRESS 
MOVE ENTRY ADDRESS TO A GT 



96 







SECUND 


PASS FORTRAN 


II 










NOVEMBER, 1966 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


04197 




00005 




02550 


ETYPE 


DC 


5,04580 






04202 




00005 




02560 


REDO 


DC 


5,07026 






04207 




00005 




02570 


HTYPE 


DC 


5,04602 






042 12 




00005 




02580 


XTYPE 


DC 


5,07354 






04217 




00005 




02590 


ASTOP 


DC 


5,02395 






04222 




00005 




02600 


FRFAC 


DC 


5,03452 






04227 




00005 




02610 


TOFAC 


DC 


5,03408 






04232 




00005 




02620 


FACAD 


DC 


5,02492 






04237 




00005 




02630 


10 


DC 


5,06090 






04242 




00005 




02640 


IOEND 


DC 


5,07006 






04247 




00005 




02650 


IXI 


DC 


5,04210 






04252 




00005 




02660 


PAR 


DC 


5 ,03378 






04257 




00005 




02670 


MAT 


DC 


5,06518 






15999 




00000 




02680 


BGNST 


DS 


, 15999 






04258 




00012 




02690 


LIS 


DSC 


12,0 






17600 




00001 




02700 




DC 


1, a, 17600 














02710 


****** 


FORTRAN SYMBOL 


TABLE 


SEARCH ROUTINE ****** 


042 74 




00005 




02720 




DS 


5 






04276 


26 


04347 


04275 


02730 


SRFCT 


TF 


SRSY,*-1, 11, 




MOVE IN PARAMETERS 


04288 


11 


04275 


00065 


02740 




AM 


SRFCT-1,5,10 






04300 


26 


04398 


04275 


02750 




TF 


SRGT ,SRFCT-1 , 


11 




04312 


11 


04275 


00061 


02760 




AM 


SRFCT-1,1,10 






04324 


15 


04671 


00004 


02770 




TDM 


SBASE ,4 






04336 


26 


04670 


00000 


02780 




TF 


SBASE-1 






04347 




00000 




02790 


SRSY 


DS 


, * 






04348 


45 


04392 


0467 + 


02800 




BNR 


SRNX, SBASE, 11 






04360 


16 


04398 


eoooo 


02810 




TFM 


SRGT, 0,67 






04372 


15 


05085 


00001- 


02820 




TDM 


RMSW, 1, 11 






04384 


49 


04275- 


00000 


02830 




B 


SRFCT-1, ,6 






04392 








02840 




DORG 


*-3 






04392 


26 


00000 


0467-i 


02850 


SRNX 


TF 


, SBASE, 11, 




MOVE OBJECT ADDRESS OF SYMBOL 


04398 




00000 




02860 


SRGT 


DS 


,*-5 






04404 


15 


09597 


00000 


02870 




TDM 


FPSW 


,0 




04416 


44 


04484 


04396 


02880 




BNF 


*+68,SRGT,ll 






04428 


43 


04464 


09599 


02890 




BD 


*+36,SKIPSW 






04440 


33 


04398 


00000 


02900 




CF 


SRGT,, 6 






04450 




00000 




02910 


DMSW 


DS 


,*-l 






04451 




00000 




02920 


COMSW 


DS 


, * 






04452 


15 


09597 


0000J- 


02930 




TDM 


FPSW, 1,11 






04464 


16 


04493 


00037 


02940 




TFM 


OPX, 27, 10 






04476 


49 


04496 


00000 


02950 




B 


* + 20 






04484 








02960 




DORG 


*-3 






04484 


16 


04493 


000*7 s 


02970 




TFM 


OPX, 17, 10 






04493 




00000 




02980 


OPX 


DS 


,*-2 






04496 


11 


04671 


00061 


02990 




AM 


SBASE, 1, 10 






04508 


25 


04673 


04674 


03000 




TD 


FXORFL , SBASE , 


11, 


SET FIX OR FLOAT 


04520 


11 


04671 


00061 


03010 




AM 


SBASE, 1,10 






04532 


25 


044 50 


046 74 


03020 




TD 


DMSW, SBASE, 11 




SET DIMENSION SWITCH 


04544 


15 


04451 


00000 


03030 




TDM 


COMSW 


,0 




04556 


44 


04580 


04450 


03040 




BNF 


*+24 ,DMSW 






04568 


15 


04451 


00001 


03050 




TDM 


COMSW, 1, , 




SET COMMON SWITCH 


04580 


43 


04600 


04450 


03060 




BD 


*+20,DMSW,, 




IS IT DIMENSIONED 


04592 


49 


04636 


00000 


03070 




B 


SRCFFL , , , 


NO EXIT 


04600 








03080 




DORG 


*-3 






04600 


12 


04671 


00067 


03090 




SM 


SBASE, 7, 10 






04612 


26 


09589 


0467-i 


03100 




TF 


PI, SBASE, 11, 




SET I MAX 


04624 


11 


04671 


00067 


03110 




AM 


SBASE, 7, 10 







97 



***** 




SECOND 


PASS FORTRAN 


II 








NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


04636 


33 


04673 


00000 


03120 


SRCFFL 


CF 


FXORFL 




04648 


12 


04671 


00092 


03130 




SM 


SBASE, 2, 10 




04660 


49 


0427& 


00000 


03140 




B 


SRFCT-1, ,6, 


EXIT 


04671 




00000 




03150 


SBASE 


OS 


r * 




046 73 




00002 




03160 


FXORFL 


DC 


2,0 












03170 


****** 


FORTRAN FORCE 


PROCEDURE ****** 


04678 




00005 




03180 




DS 


5 




04680 


26 


04758 


04679 


03190 


FORCE 


TF 


FLV,*-1, 11, 


MOVE IN PARAMETERS 


04692 


11 


04679 


000&5 


03200 




AM 


FORCE-1,5, 10 




04 704 


26 


04842 


04679 


03210 




TF 


FRV.FORCE-l, 


11 


04716 


11 


04679 


00085 


03220 




AM 


FORCE-1,5, 10 




0472 8 


26 


04974 


04679 


03230 




TF 


FANS,F0RCE-1 


, H' 


04740 


11 


04679 


00062 


03240 




AM 


FORCE-1,2, 10 




04 752 


14 


00000 


08-104 


03250 




CM 


, 104 


,8, IS LEFT OPERATOR LESS THAN OP LOW VALUE 


04 758 




00000 




03260 


FLV 


DS 


,*-5 




04764 


47 


04956 


01300 


03270 




BL 


FORCB+24 




04 776 


16 


04991 


03977 


03280 




TFM 


FT1 , F BASE , , 


MOVE TABLE BASE TO FT1 


04788 


21 


04990 


04758 


03290 




A 


FT1-1 ,FLV, 11 


, GENERATE TABLE ADDRESS 


04800 


26 


05013 


04991 


03300 




TF 


LVAL,FT1,11, 


REMOVE LEFT VALUE FROM TABLE 


04812 


1 1 


04991 


00097 


03310 




AM 


FT1,7,10, 


ADD 7 TO TABLE ADDRESS 


04824 


26 


04979 


04991 


03320 




TF 


FCODE ,FT1, 11 


, REMOVE CODE FROM TABLE 


04836 


14 


00000 


06104 


03330 




CM 


, 104 


,8, IS RIGHT OPERATOR LESS THAN OP LOW VALUE 


04842 




00000 




03340 


FRV 


DS 


,*-5 




04848 


47 


04956 


01300 


03350 




BL 


FORCB+24 




04860 


14 


04843 


001-41 


03360 




CM 


FRV, 141, 69, 


IS OP HIGHER THAN HIGH VALUE 


04872 


46 


04992 


01100 


03370 




BH 


FORCC 




04884 


16 


04991 


63977 


03380 




TFM 


FT1 , FBASE , , 


MOVE TABLE BASE TO FT 1 


04896 


21 


04990 


04843 


03390 




A 


FT1-1,FRV,11 


, GENERATE TABLE ADDRESS 


04908 


11 


04991 


00062 


03400 




AM 


FT1 ,2, 10, 


ADD 2 TO TABLE ADDRFSS 


04920 


26 


05015 


04991 


03410 




TF 


R VAL , FT 1 , 11, 


REMOVE RIGHT VALUE FROM TABLE 


04932 


24 


05013 


05015 


03420 


FORCB 


C 


LVAL , RVAL, , 


COMPARE LEFT VALUE TO RIGHT 


04944 


47 


04968 


01100 


03430 




BNH 


* + 24 




04956 


16 


04979 


60000 


03440 




TFM 


FCODE, , , 


MOVE ZERO TO CODE 


04 96 8 


16 


00000 


60000 


03450 




TFM 


, , , 


MOVE ZERO OR CODE TO FANS 


04979 




00000 




03460 


FCODE 


DS 


, * 




04974 




00000 




03470 


FANS 


DS 


,*-5 




0498 


49 


046 79 


00000 


03480 




B 


FORCE-1,,6, 


EXIT 


04991 




00005 




03490 


FT1 


DS 


5,* 




04992 


16 


05015 


00060 


03500 


FORCC 


TFM 


RVAL,0, 10 




05004 


49 


04932 


00000 


03510 




B 


FORCB 




050 12 








03520 




DORG 


*-3 




05013 




00002 




03530 


LVAL 


DS 


2 




05015 




00002 




03540 


RVAL 


DS 


2 




03977 




00000 




03550 


FBASF 


DS 


,*+2-1040 




05017 




00002 




03560 




DC 


2,1,, 


RPAREM 


05019 




00002 




03570 




DC 


2,50 




05 024 




00005 


63186 


03580 




DSA 


L3 




05025 




00001 




03590 


RFLAG 


DC 


1 ,0 




05027 




00002 




03600 




DC 


2,60,, 


GOTO 


05029 




00002 




03610 




DC 


2 ,59 




05034 




00005 


tOO 74 


03620 




DSA 


CODE 6 




05 03 5 




00001 




03630 


RXFLAG 


DC 


1,0 




05037 




00002 




03640 




DC 


2,0,, 


COMPUTED GOTO 


05039 




00002 




03650 




DC 


2,0 




05044 




00005 


•10146 


03660 




DSA 


C00E9 




05045 




00001 




03670 


FTSW 


DSC 


1,0 




05 04 7 




00002 




03680 




DC 


2,2, , 


I F 



SECOND PASS FORTRAN II 



NOVFMBER, 1966 



LOCTN OP 


P/L 


CO 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 


05 04 9 


00002 




03690 




DC 


2,0 




05054 


00005 


10098 


03700 




DSA 


C0DE7 




05055 


00001 




03710 


CALLX 


DC 


1,0 




05057 


00002 




03720 




DC 


2,0,, 


DO 


05059 


00002 




03730 




DC 


2,0 




05064 


00005 


10170 


03740 




DSA 


C0DE12 




05065 


00001 




03750 


FFRSW 


DS 


1 




05067 


00002 




03760 




DC 


2,0,, 


DOA 


05069 


00002 




03770 




DC 


2,0 




05074 


00005 


63764 


03780 




DSA 


CODEO 




05075 


00001 




03790 


SUBPSW 


DS 


1 




05077 


00002 




03800 




DC 


2,10, , 


PLUS 


05079 


00002 




03810 




DC 


2,10 




05084 


00005 


10002 


03820 




DSA 


C0DE1 




05085 


00001 




03830 


RMSW 


OS 


1 




05087 


00002 




03840 




DC 


2,0,, 


PRINT 


05089 


00002 




03850 




DC 


2,0 




05094 


00005 


K)194 


03860 




DSA 


C0DE14 




05095 


00001 




03870 


FLAGSW 


DS 


1 




05097 


00002 




03880 




DC 


2,0,, 


READ 


05099 


00002 




03890 




DC 


2,0 




05104 


00005 


10194 


03900 




DSA 


C0DE14 




05105 


00001 




03910 


CKSW 


DS 


1 




05107 


00002 




03920 




DC 


2,0,, 


TYPE 


05109 


00002 




03930 




DC 


2,0 




051 14 


00005 


i-0 194 


03940 




DSA 


C0DE14 




051 15 


00001 




039 50 




DC 


1,0 




051 17 


00002 




03960 




DC 


2,5,, 


MPY 


051 19 


00002 




03970 




DC 


2,5 




05124 


00005 


10002 


03980 




DSA 


C0DE1 




05125 


00001 




03990 




DC 


1,0 




05127 


00002 




04000 




DC 


2,5,, 


EXP 


05129 


00002 




04010 




DC 


2,4 




05134 


00005 


1-0002 


04020 




DSA 


C0DE1 




05135 


00001 




04030 




DC 


1,0 




05137 


00002 




04040 




DC 


2,0,, 


ACCEPT 


05139 


00002 




04050 




DC 


2,0 




05144 


00005 


40194 


04060 




DSA 


C0DE14 




05145 


00001 




04070 




DC 


1,0 




05147 


00002 




04080 




DC 


2,0, , 


ACCEPT TAPE 


05149 


00002 




04090 




DC 


2,0 




05154 


00005 


JrO 194 


04100 




DSA 


C0DE14 




05155 


00001 




04110 




DC 


1,0 




05157 


00002 




04120 




DC 


2,0,, 


PUNCH 


05159 


00002 




04130 




DC 


2,0 




05164 


00005 


10194 


04140 




DSA 


C0DE14 




05165 


00001 




04150 




DC 


1,0 




05167 


00002 




04160 




DC 


2,0,, 


PUNCH TAPE 


05169 


00002 




04170 




DC 


2,0 




05174 


00005 


t0194 


04180 




DSA 


C0DE14 




05175 


00001 




04190 




DC 


1,0 




05177 


00002 




04200 




DC 


2,10,, 


MINUS 


05179 


00002 




04210 




DC 


2,10 




05184 


00005 


10002 


04220 




DSA 


C0DE1 




05185 


00001 




04230 




DC 


1,0 




05187 


00002 




04240 




DC 


2,5,, 


DIVIDE 


05189 


00002 




04250 




DC 


2,5 





99 



SfcCOND PASS FORTRAN II NOVEMBER, 1966 

p/L o PG/LN LABEL MNEM OPERANDS AND REMARKS 



05194 


00005 


1-0002 


04260 


DSA 


C0DE1 




05195 


00001 




04270 


DC 


1 »o 


RDVD 


05197 


00002 




04280 


DC 


2,0, , 


05199 


00002 




04290 


DC 


2,0 




05204 


00005 


63764 


04300 


DSA 


CODEO 




05205 


00001 




04310 


DC 


1 ,0 


CMA 


05207 


00002 




04320- 


DC 


2 ,49 , , 


05209 


00002 




04330 


DC 


2 ,48 




05214 


00005 


i-0 122 


04340 


DSA 


C0DE8 




05215 


00001 




04350 


DC 


1,0 


LP AR EN 


05217 


00002 




04360 


DC 


2,49,, 


05219 


00002 




04370 


DC 


2,1 




05224 


00005 


40026 


04380 


DSA 


CODE 3 




05225 


00001 




04390 


DC 


1,0 


STOP 


05227 


00002 




04400 


DC 


2,60,, 


05229 


00002 




04410 


DC 


2,59 




05234 


00005 


1-0074 


04420 


DSA 


C0DE6 




05235 


00001 




04430 


DC 


1,0 


PAUSE 


05237 


00002 




04440 


DC 


2,60,, 


05239 


00002 




04450 


DC 


2,59 




05244 


00005 


■10074 


04460 


DSA 


C0DE6 




05245 


00001 




04470 


DC 


1,0 


CONTINUE 


05247 


00002 




04480 


DC 


2,60,, 


05249 


00002 




04490 


DC 


2,59 




05254 


00005 


1-00 74 


04500 


DSA 


C0DE6 




05255 


00001 




04510 


DC 


1 ,0 


FORMAT 


05257 


00002 




04520 


DC 


2,60, , 


05259 


00002 




04530 


DC 


2,59 




05264 


00005 


•10242 


04540 


DSA 


C0DE17 




05265 


00001 




04550 


DC 


1,0 


UNMNS 


05267 


00002 




04560 


DC 


2,5,, 


05269 


00002 




04570 


DC 


2,0 




052 74 


00005 


1-0050 


04580 


DSA 


C0DE4 




05275 


00001 




04590 


DC 


1,0 


SENSE SWITCH 


05277 


00002 




04600 


DC 


2,0,, 


05279 


00002 




04610 


DC 


2,2 




05284 


00005 


63764 


04620 


DSA 


CODEO 




05285 


00001 




04630 


DC 


1,0 


CALL EXIT 


05287 


00002 




04640 


DC 


2,0, , 


05289 


00002 




04650 


DC 


2,0 




05294 


00005 


M)410 


04660 


DSA 


CDCALL 




05295 


00001 




04670 


DC 


1,0 


SC 


05297 


00002 




04680 


DC 


2,60, , 


05299 


00002 




04690 


DC 


2 ,60 




05304 


00005 


63764 


04700 


DSA 


CODEO 




05305 


00001 




04710 


DC 


1,0 




05307 


00002 




04720 


DC 


2 ,60, , 


EQUAL 


05309 


00002 




04730 


DC 


2 , 59 




05314 


00005 


1-0002 


04740 


DSA 


COO El 




05315 


00001 




04750 


DC 


1,0 




05317 


00002 




04760 


DC 


2,0,, 


COLON 


05319 


00002 




04770 


DC 


2,0 




05324 


00005 


63250 


04780 


DSA 


CODE 5 




05325 


00001 




04790 


DC 


1,0 




05327 


00002 




04800 


DC 


2,0,, 


SUBP 


05329 


00002 




04810 


DC 


2,0 




05334 


00005 


1-0338 


04820 


DSA 


FCT1 





***** 


SECOND 


PASS FORTRAN 


I I 






LOCTN OP 


P/L 


Q 


PG/LN LABEL 


MNEM 


OPERANDS 


05335 


00001 




04830 


DC 


1,0 


05337 


00002 




04840 


DC 


2,0,, 


05339 


00002 




04850 


DC 


2,0 


05344 


00005 


40338 


04860 


DSA 


FCT1 


05345 


00001 




04870 


DC 


1,0 


05347 


00002 




04880 


DC 


2,0, , 


05349 


00002 




04890 


DC 


2,0 


05354 


00005 


1-0338 


04900 


DSA 


FCT1 


05355 


00001 




04910 


DC 


1,0 


05357 


00002 




04920 


DC 


2,0, , 


05359 


00002 




04930 


DC 


2,0 


05364 


00005 


40218 


04940 


DSA 


C0DE15 


05365 


00001 




04950 


DC 


1 ,0 


05367 


00002 




04960 


DC 


2,0, , 


05369 


00002 




04970 


DC 


2,0 


05374 


00005 


1-0362 


04980 


DSA 


FCTRT 


05375 


00001 




04990 


DC 


1,0 


05377 


00002 




05000 


DC 


2,0,, 


05379 


00002 




05010 


DC 


2,60 


05384 


00005 


63764 


05020 


DSA 


CODEO 


05385 


00001 




05030 


DC 


1 ,0 


05387 


00002 




05040 


DC 


2,0, , 


05389 


00002 




05050 


DC 


2,0 


05394 


00005 


1-0074 


05060 


OSA 


CODE 6 


05395 


00001 




05070 


DC 


1,0 


05397 


00002 




05080 


DC 


2,1,, 


05399 


00002 




05090 


DC 


2,0 


05404 


00005 


40194 


05100 


DSA 


C0DE14 


05405 


00001 




05110 


DC 


1,0 


05407 


00002 




05120 


DC 


2,1 , , 


05409 


00002 




05130 


DC 


2,0 


05414 


00005 


1-0194 


05140 


DSA 


C0DE14 


05415 


00001 




05150 


DC 


1,0 


05417 


00002 




05160 


DC 


2,1,, 


05419 


00002 




05170 


DC 


2,0 


05424 


00005 


40194 


05180 


DSA 


C0DE14 


05425 


00001 




05190 


DC 


1,0 


05427 


00002 




05200 


DC 


2,1, , 


05429 


00002 




05210 


DC 


2,0 


05434 


00005 


1-0194 


05220 


DSA 


C0DF.14 


05435 


00001 




05230 


DC 


1,0 


05437 


00002 




05240 


DC 


2,1,, 


05439 


00002 




05250 


DC 


2,0 


05444 


00005 


40194 


05260 


DSA 


C0DE14 


05445 


00001 




05270 


DC 


1,0 


05447 


00002 




05280 


DC 


2,1,, 


05449 


00002 




05290 


DC 


2,0 


05454 


00005 


1-0194 


05300 


DSA 


C0DE14 


05455 


00001 




05310 


DC 


1,0 


05457 


00002 




05320 


DC 


2,0, , 


05459 


00002 




05330 


DC 


2,0 


05464 


00005 


40290 


05340 


DSA 


CDSSAB 


05465 


00001 




05350 


DC 


1,0 


05467 


00002 




05360 


DC 


2,0,, 


05469 


00002 




05370 


DC 


2,0 


05474 


00005 


1-0266 


05380 


DSA 


CODESS 


05475 


00001 




05390 


DC 


1,0 



NOVEMBER, 1966 



101 



***** 




SECOND 


PASS FORTRAN 


I J 










NOVEMBER, 1966 PAGF 


LOCTN 


OP 


p/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




05477 




00002 




05400 




DC 


2,0,, 


S2 




05479 




00002 




05410 




DC 


2,0 






05484 




00005 


40266 


05420 




DSA 


CODESS 






05485 




00001 




05430 




DC 


1,0 






05487 




00002 




5440 






2,0,, 


S3 




05489 




00002 




54 50 




DC 


2,0 






05494 




00005 


j-0266 


5460 




DSA 


CODESS 






05495 




00001 




05470 




DC 


1,0 






05497 




00002 




05480 




DC 


2,0,, 


CALL 


LINK 


05499 




00002 




05490 




DC 


2,0 






05504 




00005 


■10410 


05500 




DSA 


CDCALL 














05600 


*$$$$$$$$$$$$$$$$$$$ $$$$$$$$i$$t $*$$*$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$$$$$ 










05690 


****** 


. FORTRAN II GTNS i RMNS 


RPNS ROUTINES ****** 










05750 


*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


05509 




00005 




05770 




DS 


5 






05510 


15 


05518 


0000-1 


05780 


RMNS 


TDM 


RMNS+8,1, 11, 


SET 


DMMC CUI Tru TD El AT 1 


05522 


27 


05600 


05509 


05790 




BT 








05538 




00005 




05800 




DS 


5 






05540 


1 5 


05518 


00001 


05810 






RMNS+8, 1,, 


SET 


f!TMC CUT Tru Tfl 1 
u 1 INo oWl ILn 1 II 1 


05552 


27 


05600 


05539 


05820 




b? M 


RGR , GTNS- 1 






05568 




00005 




05830 




DS 


5 






05570 


15 


05518 


00000 


05840 


RPMS 


TDM 


RMNS+8, 0, , 


SET 


RPNS SWITCH TO 


05582 


27 


05600 


05569 


05850 




BT 


RGR.RPNS-l 






05598 




00005 




05860 




DS 


5 






05600 


26 


05654 


05599 


05870 


RGR 


T p 


RGRI ,*-l, 11, 


MOVE 


IN ADDRESS OF I 


05612 


1 1 


05599 


00005 


05880 






RGR-1,5, 10 






05624 


26 


05695 


05594? 


05890 




T f 


RGRS,RGR-1,11, 


MOVE 


IN ADDRESS OF SYMBOL 


05636 




05599 


0000 1 


05900 




AM 


RGR-1 ,1,10 








13 


00000 


00004 






MM 


,4 




, 10, 


05654 




00000 




05920 


R GR I 


DS 


,*-5 






05660 


1 1 


00099 


1-5999 


05930 




AM 


99 , BGNST 


, ,SET UP STRING ADDRESS 


05672 


43 


05704 


05518 


05940 




BD 


REMGET , RMNS+8 




05684 


26 


00099 


00000 


05950 




TF 


99 , 




,6 , PLACE SYMBOL ON STRING 


05695 




00000 




05960 


RGRS 


DS 








05696 


49 


05599 




05970 




B7 


RGR-1 , 




,6 , 


05 704 


26 


05695 


00099 


05980 


REMGET 


TF 


RGRS, 99, 611, 


TAKE 


SYMBOL FROM STRING 


05716 


44 


05599 


05518 


05990 




BNF 


RGR-1 , RMNS+8, 6, 


EXIT 


IF GTNS 


05728 


1 1 


00099 


00001 


06000 




AM 


99 ,1 




, 10, 


05740 


26 


00092 


00099 


06010 




TF 


92 ,99 






05752 


12 


00092 


00094 


06020 




SM 


92 ,4 




, 10, 


05764 


31 


00093 


00099 


06030 




TR 


92 ,99 




,611, CLOSE STRING 


05776 


49 


05599 


00000 


06040 




B 


RGR-1 , ,6, 


EXIT 




05784 








06050 




DORG 


*-3 






05784 


43 


05804 


05518 


06060 


RGRMUL 


BD 


*+20, RMNS+8,, 


BRANCH IF RMNS OR GTNS 


05796 


49 


05599 


00000 


06070 




B 


RGR-1, ,6, 


EXIT 


IF RPNS 


05 8 04 








06080 




DORG 


*-3 






05 8 04 


16 


05695 


OOOOO 


06090 




TFM 


RGRS, 0,68, 


MOVE 


NULL TO SYMBOL 


05816 


49 


05599 


00000 


06100 




B 


RGR-1 , ,6, 


EXIT 




05824 








061 10 




DORG 


*-3 














061 20 




FORTRAN GENERATE TEMPORARY 


STORAGE ROUTINE ****** 


05828 




00005 




06130 




DS 


5 






05830 


16 


0660 1 


OOOOO 




GNRP 


TFM 


GI , ,8, SET GI 


TO 


ZERO 


05842 


15 


06R92 


00000 


061 50 




TDM 


GTSBSWjO 






05854 


11 


06601 


0009-1 


061 60 




AM 


GI , 1 , 10, 


ADD 


1 TO GI 


05866 


17 


05540 


05882 


06170 




BTM 


GTNS , *+ 16 , , 


GET 


ITH SYMBOL 


05882 




00005 


066 01 


06180 




DSA 


GI ,GA 






05887 




00005 


96457 















o 



/oz 







SECOND 


PASS FORTRAN 


I I 








NOVFMRER, 1966 PAGF 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


05888 


14 


06457 


00101 


06190 




CM 


GA,101 ,8, 


COMPARE TO F AC ( 101 ) 


05900 


47 


05854 


01200 


06200 




BNE 


GNRP +2 4 




05912 


14 


06838 


oo-eoo 


06210 




CM 


TMAX , ,9, 


HAVE ANY TFHPS BEFM GFNFRATF.D 


05 924 


46 


06040 


01200 


06220 




BE 


GNONE 




05936 


26 


09575 


02303 


06230 


GYES 


TF 


GBASF , TB AS E 




05948 


16 


06007 


ooeoo 


06240 




TFM 


GCNT ,0,9 




05960 


12 


09575 


00067 


06250 




SM 


GBASF ,7,10 




05972 


44 


06458 


0957* 


06260 




BNF 


GFREE » GB ASE » 1 1 » 


BRANCH IF FREE ONE FOUND 


05984 


11 


06007 


oooei 


06270 


GTPT 


AM 


GCNT, 1,10 




05996 


14 


06838 


eoooo 


06280 




CM 


TMAX 




06007 




00000 




06290 


GCNT 


DS 


, * 




06008 


46 


06040 


01200 


06300 




BE 


GNONE 




06020 


12 


09575 


000-10 


06310 




SM 


GBASE, 10, 10 




06032 


49 


05972 


00000 


06320 




B 


GYES+36 




06 04 








06330 




DORG 


*-3 




06040 


11 


06838 


oooei 


06340 


GNONE 


AM 


TMAX, 1,10 




06052 


43 


06240 


06892 


06350 




BD 


FULLCK-24,GTSBSW 




06064 


26 


06705 


06843 


06360, 




TF 


GCOW.ADCOW, , 


MOVE ADCOW TO GCOW 


06076 


11 


06705 


00019 


06370 




AM 


GC0W,19,10, 


ADD 19 FOR LENGTH OF IMSTS 


06088 


21 


06705 


09578 


06380 




A 


GCOW,LNG 


06100 


26 


06835 


06705 


06390 




TF 


TCOW ,GCOW , , 


SAVE CONSTANT ADDRFSS 


061 12 


15 


07343 


00001 


06400 




TDM 


SS2.1 




06124 


17 


06898 


06140 


06410 




BTM 


PUTX,*+16, , 


OUTPUT STORE FAC INST 


06140 




00005 


06846 


06420 




DSA 


BTM , F RFAC , GCOW 




06145 




00005 


04222 












06150 




00005 


06 70 5 












06152 


13 


06705 


000O5 


06430 




MM 


GC0W,5, 10, 


IS GCOW ODD OR EVEN 


06164 


43 


06434 


00099 


06440 




BD 


GADD1 ,99 




06176 


11 


06705 


00002 


06450 




AM 


GCOW, 2, 10, 


ADD 2 TO GCOW 


06188 


15 


07342 


00001 


06460 


GPUT 


TDM 


SS1.1 




06200 


17 


06898 


06216 


06470 




BTM 


PUTX,*+16 




06216 




00005 


06 848 


06480 




DSA 


B, GCOW, BLANK 




06221 




00005 


06 70 5 












06226 




00005 


09344 












06228 


26 


06843 


06705 


06490 




TF 


ADCOW.GCOW , , 


RESERVE SPACE FOR NFW TFMP 


06240 


26 


09575 


02303 


06500 




TF 


GBASE, TBASE,, 


MOVE IN NEXT AVAILABLE TABLE ADDRESS 


06252 


22 


09574 


06838 


06510 




S 


GBASE-1 ,TMAX 




06264 


24 


09575 


09525 


06520 


FULLCK 


C 


GBASE, DOMAX 




06276 


46 


06320 


01300 


06530 




BNL 


GPUTA 




06288 


17 


08998 


09391 


06540 




BTM 


ERRT , FULM ES 




06300 


46 


06312 


01400 


06550 


MNCLOV 


BV 


*+12 




06312 


49 


00796 




06560 




B7 


MONCAL 




06320 


26 


095 75 


06835 


06570 


GPUTA 


TF 


GBASE, TCOW, 6 




06332 


11 


09575 


00004 


06580 


GFLAG 


AM 


GBASE, 4, 10 




06344 


16 


095 7* 


000-10 


06590 




TFM 


GBASE ,10,610 




06356 


12 


09575 


00003 


06600 




SM 


GBASE ,3,10 




06368 


25 


095 7* 


05095 


06610 




TD 


GBASE , FL AGSW , 6 




06380 


43 


15442 


06892 


06620 




BD 


GTFINjGTSBSW 




06392 


15 


09314 


00000 


06630 




TDM 


FSW,0 




06404 


17 


05570 


06420 


06640 


GTJW 


BTM 


RPNS,*+16 




06420 




00005 


06601 


06650 




DSA 


GI ,GBASF-1 




06425 




00005 


09574 












06426 


49 


05829 


00000 


06660 




B 


GNRP-1,,6, 


EXIT 


06434 








06670 




DORG 


*-3 




06434 


1 1 


06705 


00001 


06680 


GADD1 


AM 


GCOW, 1,10, 


ADD 1 TO GCOW 


06446 


49 


06188 


00000 


06690 




B 


GPUT 




06457 




00000 




06700 


GA 


DS 


, * 





G 



/03 



***** 




SECOND 


PASS FORTRAN 


I I 








NOVEM 






P/ L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




06458 










GF REE 




GBASE i 1 , 10 




06470 


43 


06494 


09575 


0A7?n 




RO 






06482 


44 


06526 


06892 


0A730 




p 


NGFREi GTSBSW 




054 94 


43 


OQS7^ 


nooft? 








PCI AfilQ PTCQCU 






1 2 






0A750 






GBASE, 1,10 




065 18 




05984 




0A7A0 




n-7 


GTPT 




06526 


1 2 


095 75 




OA770 






GBASE, 4, 10 






?c 






06780 




T F 


TCOW, GBASE, 11, MOVE ADDRESS OF G 




1 5 




0000 1 


06790 




TDM 


SS2 , 1 




nAKA-> 


1 7 


06898 


©■6 578 


06800 




BTM 


PUTX , *+16» » OUTPUT 


STORE FAC 


06578 




00005 




06810 




DSA 


BTM, FRFACt TCOW 




06583 




00005 


84222 












06588 




00005 


£6835 












065 90 


49 


06332 


00000 


06820 




g 


GFL AG 












06830 




OS 


5 , * 




06605 




00004 




06840 




DC 


4,1000 




06606 


14 


06605 


06 10 1 


06850 


GTCL 


CM 


GTCL-1 ,101,8 




066 18 


46 


06654 


01200 


06860 




BE 


*+36 






24 


02302 


06605 


06870 




C 


TBASE-1 , GTCL-1 




nAA47 




?~ ~ 




06880 






GTFLCL 




06654 


42 


00000 


00000 












06656 








0A9O0 




DORG 


* 9 










06605 


n aq 


GC LEAR 




1 7 rTri _i 




0666 8 


15 


00007 


uuuuu 


OAQ^O 




TnM 






06680 


42 


00000 


00000 






RR 


, ,0 
















DORG 


*~? 




n A A ft 7 




06699 


n a a n t~. 

UOO U D 


OAQSO 






*+17 , GTCL— 1 




nAAQ4 




uuuu*t 


uuuuu 


nAQAn 






4 




0A7n5 








0AQ7O 


GLOW 


n<; 


5 , * 




06706 


49 


0665 6 


00000 


0A9R0 




R 


GCL EAR 
















DORG 


*-3 






26 










I 


GBASE, TBASE 




0A776 


2 2 


09574 


06838 


07ni n 






GBASE-1 , TMAX 










008*3 






AM 


GBASE, 3, 10 




06750 


24 


09575 




07030 






GBASE, TBASE 






4 7 


06776 


01100 






RWH 


* + 14 






42 


00000 


00000 






nn 














n7nAn 




DORG 


*-9 










00000 


07070 




TDM 


GBASE, ,6 




06788 


1 2 


nQK7K 


0008-3 


07080 




SM 


GBASE ,3, 10 




06800 


3 3 




00000 


07090 




C F 


GBASE , ,6 












?^ 




AM 


GBASE ,13,10 




nAR74 


4Q 
49 




00000 


07 1 10 




B 


GTSCL+36 








00000 




7120 


Tcnw 


DS 


, * 




nAai? 








071 30 


TMAX 


DC 


3,0 








nnn/-.c 

00005 




n^i 


A DC0W 


DC 


5,0 




nAR44 












DC 


i ,a 








00002 




n-i n 




DC 


2,17 




06848 




0000 2 






D 


DC 


2 ,49 




06 853 




00005 




071 fiO 


ni 


D ^ 


5 








00005 










5 




06863 




00005 




07700 


n? 


n<; 


5 




06 86 8 




00005 




07 210 


DJ 


DS 


5 




06873 




00005 




07220 


D3 


DS 


5 




06878 




00005 




07230 


DK 


OS 


5 




06883 




00005 




07240 


D4 


DS 


5 




06888 




00005 




07250 


Tl 


DS 


5 




***** 




SECOND 


PASS FORTRAN 


I I 








NOVEMF 


0C N 




P / L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 
















DS 


3 








nrtfin i 




n-77 7n 
072 70 


GTSBSW 


DSC 


1,0 












07280 




DISC OUTPUT ROUTINES FOR OBJECT PROGRAM 


06897 




00005 




07290 




DS 


5 




06 8 98 


26 


08636 


06 8 9-7 


07300 


PUTX 


TF 


PUT1 ,PUTX-1 


,11 






nflA4^ 




07310 




AM 


PUTX-1 ,5 


, 10 


n A Q ? 7 


7A 






07320 




TF 


PUT2 , PUTX-1 


, 11 


nAof A 


\ 1 


nAHQ7 


00065 


07330 




AM 


PUTX-1 ,5 


, 10 


nAQ^R 




no 7 i 








TR 


TYPET ,TYPEX 






26 


fl»A4A 


0689? 


07^A0 


PUTXA 


TF 


PUT3 , PUTX-1 


,11 


06970 




06897 


0008*2 


n7^7n 




AM 


PUTX-1 ,2 


, 10 


06 98 2 


24 


08304 








C 


CODET , L STYPE 




06994 


47 


07470 


01200 


07380 




BNE 


PUTDIF 




07006 


24 


07365 


n t^nn 


07390 




C 


SAVCOW ,ADC0W 








Ofttl 7 








BNE 


OUTSEO 




07030 


74 




OR79* 


n74i n 




C 


BAL , SLNG 




07 04? 


47 


n777n 


n l ™ 
n«^04 


n74?n 




BL 


PUTNXT 




07054 


43 


07074 

n7^Q4 


08 304 


n-7/ m 


PUT EST 


BD 


PUTINS , CODET 












n-7 4 
'440 




B7 


PUTCAD 














v * **'■"; 


PLACE INSTRUCTIONS IN OUTPUT 


BUFFER 


07074 


; 




0006 2 


n7 An 
07460 


PUTINS 


AM 


NEXT ,2 


, 10 


n-7 QA 

07086 


26 


08322 


086 36 


07470 




TF 


NEXT ,PUT1 


,611 


07098 


24 


02262 


08646 


07480 




C 


LOCOM ,PUT3 


, 11 


071 10 


47 


07134 


01100 


07490 




BNH 


* + 24 




071 22 


43 


07334 


07343 


07500 




BD 


FLG2 ,SS2 






of 


08 3 2 2 


0006 1 


07510 


PUTXC 


SM 


NEXT ,1 


, 10 


rwi 4A 
071 




n7?ao 




07 520 




C 


LOCOM ,PUT2 


,11 




47 
4-1 




01100 


07530 




BNH 


* + 24 




n7i 7n 




n7i oi 




n^ccn 




BD 


*+24 ,SS1 




071 H? 




0832€ 


00000 


07550 




CF 


NEXT , 


,6 


071 93 




00000 




n 7^7(1 


PUTGT 


DS 


, * 




71 94 












AM 


NEXT ,6 


, 10 


72 06 


26 


0832? 


. * 


075HO 




TF 


NEXT ,PUT2 


,611 


7218 


43 


07354 








BD 


FLG3 ,SS3 




7230 


1 1 


08 322 


00065 


07A00 




AM 


NEXT ,5 


, 10 


7242 


26 


08322 


08646 


07A1 




TF 


NEXT ,PUT3 


,611 


72 54 




07374 








BD 


FLG4 ,SS4 






1*A 


OH^U 7 


u tyu u u 


07A^0 




TFM 


SS4 ,0 


, 8 








000 i-2 


n7 / r 
07640 




SM 


BAL ,12 


, 10 


-11 




AQ/ 


08 293 


07650 


PUT X F 


A 


ADCOW , SLNG 




07302 


26 


07365 








TF 


SAVCOW ' , ADCOW 




073 14 


2 1 


0831? 


08293 


07670 




A 


LNGAD , SLNG 


,6 


07326 


49 


0689? 








B7 


PUTX-1 , 


,6 


07334 


32 


08 322- 


00000 


07AQ0 




SF 


NEXT , 


,6 






00000 




n-77nn 
07700 


CC 1 

SSI 


DS 


,*-3 




07343 




00000 




07710 


SS2 


DS 


,*-2 




07344 




00000 




07720 


SS3 


DS 






07345 




00000 




07730 


SS4 


DS 


, * 




07346 


49 


07134 




07740 




B7 


PUTXC 






32 


08 322 


-99999 


07750 


FLG3 


SF 


NEXT ,99999 


,67 


073A-S 




00000 






sa vc nw 


DS 


, * 












n777n 




B7 


PUTXD 




07374 


32 


08322 


uuuuu 


07780 




SF 


NEXT , 


,6 


07386 


49 


07266 




07790 




B7 


PUTXE 












07800 


****** 


PLACE DSA ADDRESSES IN OUTPUT 


BUFFFR 


07394 


21 


08322 


08293 


07810 


PUTCAD 


A 


NF XT , SLNG 




07406 


22 


08312 


08293 


07820 




S 


BAL , SLNG 





/04 



/05 



***** SECOND PASS FORTRAN II 



NOVEMBER, 1966 



PAGE 15 



LOCTN 


OP 


P/L 




PG/LN 


LABEL 


MNEM OPERANDS AND 


REMARKS 




074 1 8 


26 


0832-2 


08646 


07830 




TF 


NEXT 


, PUT3 


,611 


07430 


43 


07450 


08301 


07840 




BD 


* + 20 


,C0DET-3 




07442 


49 


07290 




07850 




B7 


PUTXF 






07450 


16 


07365 


99999 


07860 




T FM 


SAVCOW 


,99999 




07462 


49 


07314 




07870 




B7 


PUTXF +24 














07880 


****** 




THIS TYPE NOT 


EQUAL TO LAST 




07470 


26 


08 310 


08304 


07890 


PUTDIF 


TF 


LSTYPE 


,CODET 




74 82 


24 


07365 


06843 


07900 




C 


SAVCOW 


, ADCOW 




07494 


47 


076 10 


1200 


079 10 




8NE 


OUTSEO 








24 


0831 2 


0829 5 


07920 




C 


BAL 


, SSLNG 






iT 


n IIIj 


nnnft? 






BL 


PUTNXT 














n7Qin 




AM 


NEXT 


,-1 


, 10 




75 


Ofi^?» 


08291 


07Q«;n 




TD 


NEXT 


, TYP ET 


' t 


07554 




r,Ri?7 


00062 


07QA0 




AM 


NEXT 


, 2 


, 10 


7 








n-707fl 




T FM 


NEXT 


,0 


, 610 




?A 


™j ' 




n-iaan 




TF 


LNGAD 


,NEXT 






l 1 


n7n^f 


00063 


□ on 




SM 


BAL 


,3 


,,10 


07602 


Iq 


07054 




08000 




B7 


PUTEST 




















OUT OF SEQUENCE 












n n^n 


OUTS E0 


C 


BAL 


, SOLNG 








n777n 


ni ™ 


n Sin 




BL 


PUTNXT 










n7Aof 








CM 


BAL 


,75 


, 10 








n i 5nn 


„„„f „ 




BE 


PUTXH 








: } 


OR??? 


n no 61 
00061 


8060 , 




AM 


NEXT 


, 1 


, 10 


07670 


1 2 


08 312 


00061 


08070 




SM 


BAL 


, 1 


, 10 


07682 


1 5 


08 322 


00000 


08080 




TDM 


NEXT 




, 6 


07693 




00001 




08090 




DC 


i ,a,* 






76 94 


11 


08322 


0006 5 


08100 


PUTXH 


AM 


NEXT 


,5 


, 10 


07706 


12 


08312 


0006 5 


08110 




SM 


BAL 


,5 


, 10 


07718 


43 


07750 


08301 


081 20 




BD 


PUTTA 


,C0DET-3 




07730 


26 


08322 


06843 


081 30 


PUTX J 


TF 


NEXT 


, ADCOW 


, 6 


07742 


49 


075 30 




08140 




B7 


PUTXG 






07750 


26 


08 322 


0864-1 


081 50 


PUTTA 


TF 


NEXT 


,PUT2 


,611 


07762 


49 


07530 




081 60 




B7 


PUTXG 














081 70 


***"*'" 




NEXT CARD BUFFER TO BF USED 








a 


0006 1 


08180 


PUTNXT 


AM 


NEXT 


, 1 


, 10 


07782 




0R63? 




08190 




TD 


NEXT 


, FL GRM 


, 6 


07794 


14 




68551 


08200 




CM 


PREBUF 


,BUF4 






46 










BE 


PUT PC H 






07818 




08631 


nno?5 


OR770 




AM 


PREBUF 


,75 






f 9 


OR ^9 7 


i , 






TF 


NEXT 


, PR FBUF 












08240 




SM 


NEXT 


, 1 


, 10 




1 A 






082 50 


PUTX I 


T FM 


BAL 


,75 


, 10 


66 


4q 


07694 




08260 




B7 


PUTXH 














08270 


~ ~ ** 




OUTPUT BUFFER 


LOAD TO DISC 










00000 


8280 


PUTPCH 


TDM 


BUF4+75 










nnnn l 




08290 




DGM 








07RRA 




0056b 




08300 




T FM 


IORT 


,* + 23 




n7HOQ 






68268 


8310 




B 


IOPT 


,PUTXX 


, 7 






TO 


0006 3 


08320 




AM 


PUTXZ 


,3 


i 10 


07922 


16 


08631 








T FM 


PREBUF 


,BUF1 




07934 


16 


08322 


68325 


08340 




T FM 


NEXT 


,BUF1-1 




07946 


16 


07964 


68626 


08350 




T FM 


* + 18 


,BUF4+75 




07958 


26 


08626 


09352 


08360 




TF 


BUF4+75 


,N13089 




07970 


12 


07964 


0001-2 


08370 




SM 


*-6 


,12 


, 10 


07982 


14 


07964 


68326 


08380 




CM 


*-18 


, BUF1 




07994 


46 


07958 


01100 


08390 




BH 


*-36 







SECOND PASS FORTRAN II 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 1 


08 006 


49 


07854 


00000 


08400 




B 


PUTX I 


08018 


26 


08 041 


0801? 


08410 


PUTC 


TF 


* + 23 


08030 


33 


08041 


00000 


08420 




CF 


='' + 11 


08042 


24 


08044 


02262 


08430 




C 


*-l 


08054 


46 


08114 


01100 


08440 




BH 


PUTCA 


08066 


31 


08291 


08662 


08450 




TR 


TYPET 


08078 


26 


06897 


08017 


08460 


PUTCB 


TF 


PUTX-1 


08090 


49 


06958 


00000 


08470 




B 


PUTXA 


08102 


26 


08017 


08101 


08480 


RUTD 


TF 


PUTC-1,PUTD-1 


081 14 


31 


08291 


08677 


08490 


■PUTCA 


TR 


TYPET 


08126 


49 


08078 


00000 


08500 




B 


PUTCB 


08138 


26 


08641 


0813? 


08510 


PUTA 


TF 


PUT2 


08150 


11 


08137 


00065 


08520 




AM 


PUTA-1 


08162 


26 


08646 


0813? 


08530 




TF 


PUT3 


08174 


11 


08137 


00061 


08540 




AM 


PUTA-1 


08186 


26 


06897 


08137 


08550 




TF 


PUTX-1 


08198 


31 


08291 


08692 


08560 




TR 


TYPET 


08210 


49 


07610 


00000 


08570 




B 


OUTSEO 


08222 


31 


08291 


08253 


08580 


PUT RM 


TR 


TYPET , TYPERM 


08234 


26 


06897 


08221 


08590 




TF 


PUTX-1 ,PUTRM- 


08246 


49 


06958 




08600 




B7 


PUTXA 


08253 




00001 




08610 


TYPERM 


DSC 


1,2 


08255 




00002 




08620 




DC 


2,2 


08257 




00002 




08630 




DC 


2,5 


08259 




00002 




08640 




DC 


2,10 


08261 




00002 




08650 




DC 


2,11 


08266 




00005 




08660 




DC 


5,100 


08267 




00001 




08670 




DC 


i, a 


08268 




00002 




08680 


PUTXX 


DSC 


2,2 


08274 




00005 


68 2 76 


08690 




DSA 


PUTXY 


08275 




00001 




08700 




DC 


1,3 


082 76 




00001 




08710 


PUTXY 


DSC 


1,0 


08281 




00005 




08720 


PUTXZ 


DC 


5,0 


08284 




00003 




08730 




DC 


3 ,3 


08289 




00005 


68326 


08740 




DSA 


BUF1 


08290 




00001 




08750 


FLGRM 


DC 


1,3 


08291 




00001 




08760 


TYPET 


DS 


1 


08293 




00002 




08770 


SLNG 


OS 


2 


08295 




00002 




08780 


SSLNG 


DS 


2 


08297 




00002 




08790 


NLNG 


DS 


2 


08299 




00002 




08800 


SOLNG 


DS 


2 


08304 




00005 




08810 


CODET 


DS 


5 


08305 




00001 




08820 




DS 


1 


08310 




00005 




08830 


LSTYPE 


DC 


5,0 


08312 




00002 




08840 


BAL 


DC 


2,75 


08317 




00005 




08850 


LNGAD 


DS 


5 


08322 




00005 


68326 


08860 


NEXT 


DSA 


BUF1 


08325 




00001 


X2 


08870 




DAS 


1 


08326 




00050 




08880 


BUF1 


DSC 


50,0 


08376 




00025 




08890 




DSC 


25,0 


08401 




00050 




08900 


BUF2 


DSC 


50,0 


08451 




00025 




08910 




DSC 


25,0 


08476 




00050 




08920 


BUF3 


DSC 


50,0 


08526 




00025 




08930 




DSC 


2 5,0 


08551 




00050 




08940 


BUF4 


DSC 


50,0 


08601 




00025 




08950 




DSC 


25,0 


08626 




00001 




08960 


GRMK 


DGM 





,*-l 

,LOC0M 



, TYPECR 
,PUTC-1 



,PUTA-1 
,5 

,PUTA-1 
, 1 

,PUTA-1 
, TYPE A 



107 



***** 




SECOND 


PASS FORTRAN 


II 












LCJCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 


08631 




00005 


68326 


08970 


PREBUF 


OSA 


BUF1 






08636 




00005 




08980 


PUT1 


OS 


5 






0864 1 




00005 




08990 


PUT2 


DS 


5 






08646 




00005 




09000 


PUT3 


OS 


5 






08647 




00001 




09010 


TYPEX 


DSC 


1 r 1 






08649 




00002 




09020 




DC 


2 ( 12 






0865 1 




00002 




09030 




DC 


2(15 






08653 




00002 




09040 




DC 


2(20 






08655 




00002 




09050 




DC 


2(21 






08660 




00005 




09060 




DC 


5d 






0866 1 




00001 




09070 




DC 


l t a 










00001 




09080 


TYPECR 


DSC 


1 (3 










00002 




09090 




DC 


2 ( 5 






08666 




00002 




09100 




DC 


2(8 






08668 




00002 




09110 




DC 


2(13 






08670 




00002 




09120 




DC 


2,14 






08675 




00005 




09130 




DC 


5(10 






08676 




00001 




09140 




DC 


1(3 






08677 




00001 




09150 


TYPECN 


DSC 


1(2 






08679 




00002 




09160 




DC 


2(5 






08681 




00002 




09 170 




DC 


2 ( 8 






08683 




00002 




09180 




DC 


2(13 






08685 




00002 




09 190 




DC 


2,14 






08690 




00005 




09200 




DC 


5 ( 100 






08691 




00001 




09210 




DC 


1 ( 3 






08692 




00001 




09220 


TYPEA 


DSC 


1 ( 3 






08694 




00002 




09230 




DC 


2 , 5 






08696 




00002 




09240 




DC 


2 , 13 






08698 




00002 




09250 




DC ■ 


2,13 






08700 




00002 




09260 




DC 


2 ( 14 






08705 




00005 




09270 




DC 


5 (1000 






08706 




00001 




09280 




DC 


1,3 






08711 




00005 




09290 




DS 


5 






08712 


26 


08846 


0871-1 


09300 


CANOS 


TF 


CANDSA 




, *-l 


08724 


17 


05510 


68740 


09310 




BTM 


RMNS 




,*+16 


08740 




00005 


6948 5 


09320 




DSA 


I ,DX 






08 745 




00005 


68987 














08 746 


17 


055 10 


68762 


09330 




BTM 


RMNS 




,#+16 


08762 




00005 


69485 


09340 




DSA 


I ,DY 






08767 




00005 


68991 














08768 


33 


08988 


00000 


09350 




CF 


DY-3 






08780 


32 


08987 


00090 


09360 




SF 


DX 




, 


08792 


25 


08791 


08984 


09370 




TD 


*-l 




,DX-3 


08804 


14 


0879 1 


00069 


09380 




CM 


#-13 




,9 


088 16 


47 


08840 


01200 


09390 




BNE 


* + 24 






0882 8 


32 


0899 1 


00000 


09400 




SF 


DY 






08840 


26 


00000 


08991 


09410 




TF 






, DY 


08846 




00000 




09420 


CANDSA 


DS 






,*-5 


08852 


1 1 


08711 


0006 5 


09430 




AM 


CANDS-1 




,5 


08864 


17 


055 10 


68880 


09440 




BTM 


RMNS 




,#+16 


08880 




00005 


6948 5 


09450 




DSA 


I (DX 










00005 


68987 














08886 


14 


08 98 7 


06 104 


09460 




CM 


DX 




, 104 


08898 


47 


08930 


01200 


09470 




BNE 


* + 32 






08910 


11 


08711 


00061 


09480 


CANDRT 


AM 


CANDS-1 




, 1 


08922 


49 


08711- 


00000 


09490 




B 


CANDS-1 






08930 








09500 




DORG 


*-3 






***** 




SECOND 


PASS FORTRAN 


1 1 












LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 


08930 


1 7 


042 76 


68946 


09510 




BTM 


SRFCT 




,#+16 


08 94 6 




00005 


68987 


09 52 




DSA 


DX ,DX 






08951 




00005 


68987 














08952 


26 


08970 


0871-1 


09530 




TF 


#+18 




,CANDS- 


08964 


26 


00000 


08987 


09540 




TF 






,DX 


08976 


49 


08910 


00000 


09550 




B 


CANDRT 




08987 




00000 




09560 


nx 


DS 








08991 




00004 




09570 


DY 


DS 


4 






08996 




00005 




09580 




DC 


5 




,0 


08998 


38 


09084 


0090 1 


09590 


ERRT 


WN 


LSTN 




,901 


090 10 


25 


09 105 


09608 


09600 




TD 


EM1+14.SCNT-3 




09022 


25 


09 107 


09609 


0961 




TD 


EM1+16.SCNT-2 




09 034 


25 


09 109 


096 10 


09620 




TD 


EM1+18,SCNT-1 




09046 


25 


09 1 1 1 


096 1 1 


09630 




TD 


EM1+20(SCNT 




09058 


39 


0909 1 


0090 1 


09640 




WA 


EMI 




,901 


09 070 


39 


0899? 


00900 


09650 




WA 


ERRT-1 




,9 00 


09082 


42 


00000 


00000 


09660 




BB 








09084 




00000 




09670 


LSTN 


DS 






,*-9 


09088 








09680 




DORG 


LSTN+4 






09088 




00001 




09690 




DC 


1,3 






09091 




00012 


X2 


09700 


EMI 


DAC 


12, + 


77773 


091 15 




00001 


X2 


09710 




DAS 


1 






091 16 




00002 




09720 


BLK1 


DSC 


2,22 






09122 




00005 


69124 


09730 




DSA 


BLK1A 






09123 




00001 




09740 




DC 


1,3 






09124 




00001 




09750 


BLK1A 


DSC 


1,0 






09129 




00005 




09760 




DC 


5, 17876 






09132 




00003 




09770 




DC 


3,41 






09137 




00005 


40000 


09780 




DSA 


C0DE1-2 






09138 




00001 




09790 




DC 


1,3 






09139 




0000 1 




09800 




DS 


1 






09140 




00002 




09810 


BLK2 


DSC 


2,22 






09146 




00005 


69148 


09820 




DSA 


BLK2A 






09147 




0000 1 




09830 




DC 


1,3 






09148 




0000 1 




09840 


BLK2A 


DSC 


1 ,0 






091 53 




00005 




09850 




DC 


5,17936 






091 56 




00003 




09860 




DC 


3,60 






09161 




00005 


i-oooo 


09870 




DSA 


C0DF1-2 






09162 




00001 




09880 




DC 


1,5) 






09163 




0000 1 




09890 




DS 


1 






09164 




00002 




09900 


BLK3 


DSC 


2,22 






09170 




00005 


69 172 


09910 




DSA 


BLK3A 






09171 




00001 




09920 




DC 


1,3 






091 72 




00001 




09930 


BLK3A 


DSC 


1,0 






091 77 




00005 




09940 




DC 


5,18000 






09180 




00003 




09950 




DC 


3,41 






09185 




00005 


40000 


09960 




DSA 


C0DE1-2 






09186 




00001 




09970 




DC 


1,3 






09187 




00001 




09980 




DS 


1 






09188 




00002 




09990 


BLK4 


DSC 


2,22 






091 94 




00005 


69196 


10000 




DSA 


BLK4A 






09195 




00001 




10010 




DC 


1,3 






09196 




00001 




10020 


BLK4A 


DSC 


1,0 






0920 1 




00005 




10030 




DC 


5,18041 






09204 




00003 




10040 




DC 


3,41 






09209 




00005 


toooo 


10050 




DSA 


C0DE1-2 






09210. 




00001 




10060 




DC 


1,3 







***** 




SECOND 


PASS FORTRAN 


II 








LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


09211 




00001 




10070 




DS 


1 


09212 




00002 




10080 


BLK5 


DSC 


2,22 


09218 




00005 


€9220 


10090 




DS A 


BLK5A 


09219 




00001 




10100 




DC 


1,3 


09220 




00001 




10110 


BLK5A 


DSC 


If 


09225 




00005 




10120 




DC 


5, 17917 


09228 




00003 




10130 




DC 


3,019 


09233 




00005 


•14100 


10140 




DSA 


SUBCDS-2 


09234 




00001 




10150 




DC 


1,3 


09235 




00001 




10160 




DS 


1 


09236 




00002 




10170 


BLK6 


DSC 


2,22 


09242 




00005 


S-9244 


10180 




DSA 


BLK6A 


09243 




00001 




10190 




DC 


1,3 


09244 




00001 




10200 


BLK6A 


DSC 


1,0 


09249 




00005 




10210 




DC 


5,18082 


09252 




00003 




10220 




DC 


3,019 


09257 




00005 


1-4100 


10230 




DSA 


SUBCDS-2 


09258 




00001 




10240 




DC 


1,3 


09259 




00001 




10250 




DS 


1 


09260 




00002 




10260 


BLK7 


DSC 


2,22 


09266 




00005 


69268 


10270 




DSA 


BLK7A 


09267 




00001 




10280 




DC 


i ,a 


09268 




00001 




10290 


BLK7A 


DSC 


1,0 


09273 




00005 




10300 




DC 


5,18101 


09276 




00003 




10310 




DC 


3,019 


09281 




00005 


44100 


10320 




DSA 


SUBCDS-2 


09282 




00001 




10330 




DC 


1,3 


09283 




00001 




10340 




DS 


1 


09284 




00002 




10350 


BLK8 


DSC 


2,22 


09290 




00005 


99292 


10360 




DSA 


BLK8A 


09291 




00001 




10370 




DC 


1,3 


09292 




00001 




10380 


BLK8A 


DSC 


1,0 


09297 




00005 




10390 




DC 


5,18120 


09300 




00003 




10400 




DC 


3,019 


09305 




00005 


1-4100 


10410 




DSA 


SUBCDS-2 


09306 




00001 




10420 




DC 


1,3 


09311 




00005 




10430 


CKCOW 


DC 


5,0 


09312 




00001 




10440 




DC 


1,3 


09313 




00001 




10450 


SSSW 


DS 


00001 , , SSSW , , 


09314 




00001 




10460 


FSW 


DS 


00001,, FSW,, 


09315 




00001 




10470 


101 


DS 


00001 , , 101 , , 


09316 




00001 




10480 


102 


DS 


00001, ,102,, 


09317 




00001 




10490 


103 


DS 


00001 , , 103, , 


09318 




00001 




10500 


STEMP1 


DS 


00001 , ,STEMP1 , , 


09319 




00001 




10510 


STEMP2 


DS 


00001 , ,STEMP2, , 


0932 




00001 




10520 


CALLSW 


DS 


00001 ,, CALLSW, , 


09321 




00001 




10530 


nosw 


DSC 


1,0 


09322 




00001 




10540 


EX IND 


DS 


00001 , ,EX IND , , 


09323 




00001 




10550 


SUBSW 


DS 


00001,, SUBSW,, 


09324 




00001 




10560 


RPGSW 


DS 


1 


09325 




00001 




10570 


RSW 


DS 


1 


09325 




00000 




10580 


SWAREA 


DS 




09327 




00002 




10590 


TFM 


DC 


00002, 16,, TFM, 


09329 




00002 




10600 


SF 


DC 


00002 ,32 , ,SF , 










10610 


C F 


DC 


00002, 33, ,CF 


09333 




0000 2 




10620 


TF 


DC 


00002,26, ,TF , 


09335 




00002 




10630 


AM 


DC 


00002, 11, , AM, 






SECOND 


PASS FORTRAN 


I I 








LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


09337 




00002 




10640 


MM 


DC 


00002, 13 , , MM , 


09339 




00002 




10650 


H 


DC 


00002 ,48 , , H , 


09352 




00013 




10660 


N13089 


DC 


00013,0 


09341 




00000 




10670 


ZERO 


DS 


, *_ 1 1 


09345 




00000 




10680 


ZFR06 


DS 


, #-7 


09343 




00000 




10690 


ZER04 


OS 


,*-9 


09344 




00000 




10700 


ZER05 


DS 


, *-8 


09344 




00000 




10710 


BLANK 


DS 


,*-8 


09357 




00005 




10720 


M13092 


DC 


5 ,00099 , , , 


09359 




00002 




10730 


SUB 


DC 


00002 ,22 , , SUB , 


09364 




00005 




10740 


N13133 


DC 


5 ,00095 , , , 


09366 




00002 




10750 


MOD 


DC 


2,0 


09368 




0000 2 




10760 


MP Y 


DC 


00002 ,23 


09370 




00002 




10770 


8T 


DC 


00002,27, ,BT, 


09372 




00002 




10780 


RCTY 


DC 


00002,34, , RCTY , 


09374 




00002 




10790 


WATY 


DC 


00002 ,39, , WATY, 


09378 




00004 




10800 


GLNO 


DC 


00004,000 , , GLNO , 


09380 




00002 




10810 


ADD 


DC 


00002,21, , ADD , 


09382 




00002 




10820 


SM 


DC 


00002, 12 , ,SM, 


09385 




00003 




10830 


RVSN 


DC 


3 ,125 


09388 




00003 




10840 


RMOD 


DC 


3,123 


09391 




00030 


X2 


10850 


FULMES 


DAC 


30, SYMBOL 


09453 




00004 




10860 


DOA 


DC 


00004, 109 , ,DOA, 


09455 




00002 




10870 


MNS5 


DC 


00002,-05, ,MNS5, 


09460 




00005 




10880 


N13063 


DC 


5,00100, , , 


09465 




00005 




10890 


M13062 


DC 


5 ,00102 , , , 


09469 




00004 




10900 


FAC 


DC 


00004, 101 , ,FAC , 


09471 




00002 




10910 


FIVE 


DC 


2,5 


09476 




00005 




10920 


RTNAME 


DS 


00005 , , RTNAME , , 


09481 




00005 




10930 


ST 


DS 


00005 , , ST, , 


09485 




00004 




10940 


I 


DS 


00004, ,1 , , 


09490 




00005 




10950 


J 


DS 


00005 , , J , , 


09495 




00005 




10960 


P 


DS 


00005, ,P, , 


09500 




00005 




10970 





DS 


00005 , ,0, , 


09505 




00005 




109R0 


LV 


DS 


00005 , , LV , , 


09510 




00005 




10990 


RTAD 


DS 


00005, , RTAD,, 


09515 




00005 




11000 


RV 


DS 


00005, ,RV , , 


09520 




00005 




11010 


SXF 


DS 


5 


09525 




00005 




11020 


DOMAX 


DC 


5,17600 


09530 




00005 




11030 


J40004 


DS 


5 


09534 




00004 




11040 


T2 


DS 


4 


09539 




00005 




11050 


N01100 


DC 


5,1100 


09541 




00002 




11060 


BNH 


DC 


2,47 


09543 




00002 




11070 


C 


DC 


2,24 


09545 




00002 




11080 


CM 


DC 


2,14 


09547 




00002 




11090 


BL 


DC 


2,47 


09552 




00005 




11100 


N01300 


DC 


5,1300 


09554 




00002 




11110 


BE 


DC 


2,46 


09559 




00005 




11120 


NO 1200 


DC 


5,1200 


09561 




00002 




11130 


BD 


DC 


2 ,43 


09563 




00002 




11140 


BNF 


DC 


2,44 


09568 




00005 




11150 


FACM2 


DC 


5,02490 


09570 




00002 




11160 


BI 


DC 


2,46 


09575 




00005 




11170 


GBASE 


DS 


5 


09578 




00003 




11180 


LNG 


DS 


3 


09589 




00011 




11190 


PI 


DS 


11 


09594 




0O0O5 




11200 


T3 


DS 


5 
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TABLE FULLS) 




/// 



***** 




SECUND 


PASS FORTRAN 


! I 










LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


09596 




00002 




11210 


OPZ 


DS 


2 




09597 




00001 




11220 


FPSW 


DSC 


1.0 




09598 




00001 




11230 


FPSWX 


DSC 


1,0 




09599 




00001 




11240 


SKIPSW 


DSC 


ltO 




09600 




00001 




11250 


COMXSW 


DSC 


1,0 




09601 




00001 




11260 


ERSWT 


DSC 


ltO 




09606 




00005 


60796 


11270 


N00796 


DSA 


MONCAL 




09611 




00005 




11280 


SCNT 


DC 


5,0 




09612 




00001 




11290 




DC 


i,a 




09615 




00001 


X2 


11300 




DAS 


1 




09616 




00001 




11310 


INPUT 


DC 


1,3 




09715 




00099 




11320 




DS 


99 




09716 




00001 




11330 




DC 


l,a 




09718 


17 


06898 


69734 


11340 


GISMO 


BTM 


PUTX 


,*+16 


09734 




00005 


64493 


11350 




DSA 


0PX,T0FAC,N13092 


09739 




00005 


64227 












09744 




00005 


69357 












09746 


17 


05570 


69762 


11360 




BTM 


RPNS 


,*+16 


09762 




00005 


69485 


11370 




DSA 


I ,FAC 




09767 




00005 


69469 












09768 


15 


09314 


00004 


11380 




TDM 


FSW 


,1 


09780 


25 


05095 


05035 


11390 




TD 


FLAGSW 


,RXFLAG 


09792 


43 


09812 


09320 


11400 




BD 


*+20 


, CALLSW 


09804 


49 


03206 




11410 




B7 


EXIT 




09812 


17 


05830 


99824 


11420 




BTM 


GNRP 


,*+12 


09824 


12 


09575 


00091 


11430 




SM 


GBASE 


,1 


09836 


32 


09575- 


00000 


11440 




SF 


GBASE 


, 


09848 


49 


03206 




11450 




B7 


EXIT 




10000 








11460 




DORG 


10000 












11470 


****** 


SECONDARY LINKAGE FOR BLOCK 1 


10001 




00002 




11480 




DC 


2,1 




10002 


12 


09485 


00091 


11490 


C0DE1 


SM 


I 


, 1 


10014 


49 


10434 


00000 


11500 




B 


C0DE1P 




10026 


26 


03786 


09485 


11510 


C0DE3 


TF 


N40002 


,1 


10038 


49 


12274 


00000 


11520 




B 


C0DE3P 




10050 


17 


05510 


43436 


11530 


C0DE4 


BTM 


RMNS 


,C0DE4P 


10062 


48 


00000 


00000 


11540 




H 






10074 


16 


02359 


99140 


11550 


CDDE6 


TFM 


FMON+35 


, BLK2 


10086 


17 


02324 


1-0074 


11560 




BTM 


FMON 


,C0DE6 


10098 


16 


02359 


99140 


11570 


C00E7 


TFM 


FMON+35 


, BLK2 


10110 


17 


02324 


1-0098 


11580 




BTM 


FMON 


,C0DE7 


10122 


12 


09485 


00092 


11590 


CODES 


SM 


I 


, 2 


10134 


49 


13722 


00000 


11600 




B 


CODE 8P 




10146 


16 


02359 


69140 


11610 


CDDE9 


TFM 


FMON+35 


, BLK2 


10158 


17 


02324 


•10146 


11620 




BTM 


FMON 


,C0DE9 


10170 


49 


14150 


00000 


11630 


C0DE12 


B 


SUBC12 




10182 


48 


00000 


00000 


11640 




H 






10194 


16 


02359 


69164 


11650 


CDDE14 


TFM 


FMON+35 


, BLK3 


10206 


17 


02324 


40194 


11660 




BTM 


FMON 


,C0DE14 


102 18 


15 


09320 


00001 


11670 


C0DE15 


TDM 


CALLSW 


, 1 


10230 


49 


13776 


00000 


11680 




B 


CD15P 




10242 


16 


02359 


69140 


11690 


C0DE17 


TFM 


FMON+35 


, BLK2 


10254 


17 


02324 


40242 


11700 




BTM 


FMON 


,C0DE17 


10266 


49 


14102 


00000 


11710 


CODESS 


B 


SUBCDS 




10278 


48 


00000 


00000 


11720 




H 






1 0290 






00000 




C DS S AB 


B 


SUBCAB 




10302 


48 


00000 


00000 


11740 




H 






***** 




SECOND 


PASS FORTRAN 


1 1 










LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


10314 


49 


14174 


00000 


11750 


CD12B 


B 


SUB12B 




1032 6 


48 


00000 


00000 


11760 




H 






10338 


16 


02359 


69188 


11770 


FCT1 


TFM 


FMON+35 


i BLK4 


10350 


17 


02324 


40338 


11780 




BTM 


FMON 


,FCT1 


10362 


16 


02359 


69140 


11790 


FCTRT 


TFM 


FMON+35 


, BLK2 


10374 


17 


02324 


40362 


11800 




BTM 


FMON 


, FCTRT 


10386 


16 


02359 


69188 


11810 


EOJ 


TFM 


FMON+35 


, BLK4 


10398 


17 


02324 


40386 


11820 




BTM 


FMON 


,E0J 


10410 


16 


02359 


69164 


11830 


CDCALL 


TFM 


FMON+35 


, BLK3 


10422 


17 


02324 


40410 


11840 




BTM 


FMON 


, CDCALL 










11850 


****** 


THE FOLLOWING 


CODES ARITHMET 


10434 


17 


05510 


40450 


11860 


C0DE1P 


BTM 


RMNS 


,*+16 


10450 




00005 


69485 


11870 




DSA 


I 




104 55 




00005 


92399 


11880 




DSA 


SL 




10456 


17 


05510 


40472 


11890 




BTM 


RMNS 


,*+16 


104 72 




00005 


69485 


11900 




DSA 


I 




10477 




00005 


69505 


11910 




DSA 


LV 




10478 


17 


05540 


40494 


11920 




BTM 


GTNS 


,* + 16 


10494 




00005 


69485 


11930 




DSA 


I 




10499 




00005 


62372 


11940 




OSA 


SR 




10500 


14 


09505 


06-133 


11950 




CM 


LV, 133 


8,E0UAL 


10512 


46 


11036 


01200 


11960 




BE 


C0DE1C 




10524 


14 


09505 


06115 


11970 




CM 


LV, 115 


8, EXPONENTIAL 


10536 


46 


11562 


01200 


11980 




BE 


C0DE1D 












11990 


****** 




CODE ADD, SUBTRACT, MULTIPLY 


10548 


14 


02399 


06101 


12000 




CM 


SL, 101 


8, FAC 


10560 


47 


10794 


01200 


12010 




BNE 


N60007 




10572 


25 


09366 


05095 


12020 




TD 


MOD 


, FLAGSW 


10584 


15 


07343 


00001 


12030 


C0DE1A 


TDM 


SS2 


, 1 


10596 


17 


04276 


40612 


12040 




BTM 


SRFCT 


, * + 16 


10612 




00005 


6-2372 


12050 




DSA 


SR 




10617 




00005 


99490 


12060 




DSA 


J 












12070 


* 


TEST FOR MIXED 


MODE 


10618 


24 


09366 


04673 


12080 




C 


MOD 


, FXORFL 


10630 


46 


10654 


01200 


12090 




BE 


*+24 




10642 


17 


12042 


40654 


12100 




BTM 


ERMOD 


,*+12 


10654 


25 


04007 


04673 


12110 




TD 


FX 


, FXORFL 










12120 


****** 




FX IS USED BY 


OPSR ROUTINE 


10666 


17 


03888 


40682 


12130 




BTM 


OPSR 


,*+16 


10682 




00005 


69505 


12140 




DSA 


LV 




10687 




00005 


63781 


12150 




DSA 


N40001 




10688 


17 


06898 


40704 


12160 




BTM 


PUTX 


,*+16 


10704 




00005 


64493 


12170 




DSA 


OPX 




10709 




00005 


63781 


12180 




DSA 


N40001 




10714 




00005 


69490 


12190 




DSA 


J 




10716 


17 


05570 


40732 


12200 


C0DE1H 


BTM 


RPNS 


,*+16 


10732 




00005 


69485 


12210 




DSA 


I 




10737 




00005 


69469 


12220 




DSA 


FAC 




10738 


15 


09314 


00004 


12230 




TDM 


FSW 


,1 


10750 


25 


05095 


04673 


12240 




TD 


FLAGSW 


, FXORFL 


10762 


27 


06606 


02399 


12250 




BT 


GTCL 


,SL 


10774 


27 


06606 


02372 


12260 




BT 


GTCL 


,SR 


10786 


49 


03206 


00000 


12270 




B 


EXIT 




10794 








12280 




DORG 


*-3 




10794 


14 


02372 


06101 


12290 


N60007 


CM 


SR, 101 


8, FAC 


10806 


47 


10838 


01200 


12300 




BNE 


N60009 




10818 


26 


02372 


02399 


12310 




TF 


SR 


,SL 
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LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


10830 


49 


10944 


00000 


12320 




8 


C0DE1B 




10838 








12330 




OORG 


*-3 




10838 


44 


10862 


09314 


12340 


N60009 


BNF 


N60010 


,FSW 


10850 


17 


05830 


40862 


12350 




BTM 


GNRP 


,*+12 


10862 


15 


07343 


00001 


12360 


N60010 


TOM 


SS2 


, 1 


10874 


17 


04276 


1-0890 


12370 




BTM 


SRFCT 


,* + 16 


10890 




00005 


92399 


12380 




DSA 


SL 




108 95 




00005 


6-3781 


12390 




DSA 


N40001 




10896 


17 


06898 


1-0912 


12400 




BTM 


PUTX 


,* + 16 


10912 




00005 


8-4493 


12410 




DSA 


OPX 




10917 




00005 


9422 7 


12420 




DSA 


TOFAC 




10922 




00005 


9378 1 


12430 




DSA 


N40001 




10924 


25 


09366 


04673 


12440 




TD 


MOD 


, FXORFL 


10936 


49 


10584 


00000 


12450 




B 


C0DE1A 




10944 








12460 




DORG 


*-3 












1 2470 


***** * 




ENTRY IF RIGHT 


SYMBOL IS FAC, THEN IF OPERATOR IS 










12480 


* * * * * * 


SET UP REVERSE 


DIVIDE 


10944 


25 


09366 


05095 


1 2490 


C00E1B 


TD 


MOD 


, FLAGSW 


10956 


14 


09505 


08120 


1 2500 




CM 


LV, 120, 


8 , SUBTRACT 


1 0968 


47 


10992 


1 200 


12510 




BNE 


* + 24 




1 098 


16 


095 05 


06124 


12520 




TFM 


LV, 124, 


8, LEFT PAREN 


10992 


14 


095 05 


09121 


12530 




CM 


LV, 121, 


8, DIVIDE 


1 1 004 


47 


10584 


01200 


12540 




BNE 


C0DE1A 




11016 


16 


09505 


09122 


1 2550 




TFM 


LV, 122, 


8, 


11028 


49 


10584 


00000 


12560 




B 


C0DE1A 




11036 








12570 




DORG 


*-3 












12580 


****** 




ENTRY IF OPERATOR IS AN EQUAL SIGN 


11036 


44 


11468 


09314 


12590 


C0DE1C 


BNF 


N60013 


,FSW 


11048 


25 


09322 


05095 


12600 




TD 


EXIND 


, FLAGSW 


11060 


43 


11094 


05045 


12610 




BD 


* + 34 


,FTSW 


11072 


17 


04276 


41088 


12620 


SLC 


BTM 


SRFCT 


,* + 16 


11088 




00005 


92399 


12630 




DSA 


SL 




1 1093 




00005 


92399 


12640 




DSA 


SL 




11094 


44 


11118 


09325 


12650 




BNF 


C0DE1E 


,RSW 


1 1 1 06 


25 


04673 


05025 


12660 




TD 


FXORFL 


, RFL AG 










12670 


****** 




FXORFL IS SET 


BY SRFCT 


11118 


25 


11 141 


09322 ■ 


12680 


CDDE1 E 


TD 


*'+23 


, EXIND 


11130 


14 


04673 


00090 


12690 




CM 


FXORFL 


,0 ,10 


11142 


46 


11216 


01200 


12700 




BE 


C0DE1X 












12710 


^ 5j« njc £ ije ;^ 




OUTPUTS FIX TO 


FLOAT OR FLOAT TO FIX INSTRUCTIONS 


11154 


25 


04007 


04673 


12720 




TD 


FX 


.FXORFL 


11166 


1 7 


03888 


4 1 182 


12730 




BTM 


OPSR 


,* + 16 


11182 




00005 


99388 


12740 




DSA 


RMOD 




11187 




00005 


93781 


12750 




DSA 


N40001 




11188 


1 7 


06898 


41204 


12760 




BTM 


PUTX 


,*+16 


1 1 204 




00005 


96846 


12770 




DSA 


BTM 




1 1 209 




00005 


9378 1 


12780 




DSA 


N40001 




11214 




00005 


99341 


12790 




DSA 


ZERO 




11216 


43 


12120 


05045 


12800 


C00E1X 


BD 


FCT1E 


,FTSW 


11228 


44 


11360 


09325 


12810 




BNF 


N60014 


,RSW 


1 1 240 


1 5 


09325 


00000 


1 2R20 




TDM 


RSW 


,0 


11252 


15 


07343 


00001 


12830 




TDM 


SS2 


, 1 










12833 




* * * * 


# 3jt sjc J|c # # if sj( # ifi )Js :|; 




11264 


44 


11282- 


02840 


12835 




BNF 


*+18,TRCSW,6 


,,, BRANCH AROUND IF TRACE SWITCH 1 










12837 










11276 


44 


11324 


02227 


12840 




BNF 


*+48,FACTRC,, 


ARITHMETIC TRACE 










12850 




OUTPUT TRACE INSTRUCTION 



f/4 







SECOND 


PASS FORTRAN 


I I 








NOV 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11288 


17 


06898 


41304 


12860 




BTM 


PUTX 


,*+16 


11304 




00005 


99370 


12870 




DSA 


BT, TRACE, SL 




11309 




00005 


94032 












11314 




00005 


92399 












11316 


49 


02628 


00000 


12880 




B 


CLEAR 




11324 








12890 




DORG 


*-3 












12900 




OUTPUT FRF AC 


INSTRUCTION 


11324 


17 


06898 


1-1340 


12910 




BTM 


PUTX 


,*+16 


11340 




00005 


99370 


12920 




DSA 


BT,FRFAC,SL 




11345 




00005 


94222 












11350 




00005 


92399 












11352 


49 


02628 


00000 


12930 




B 


CLEAR 




11360 








12940 




DORG 


*-3 




11360 


15 


07343 


00001 


12950 


N6 0014 


TDM 


SS2 


, 1 










12953 


*********************** 




11372 


44 


11396 


02840 


12955 




BNF 


*+18,T.RCSW 


,6 ,,, BRANCH AROUND IF 










12957 










11384 


44 


11432 


02227 


12960 




BNF 


*+48,FACTRC 


,, ARITHMETIC TRACE 










12970 




OUTPUT TRACE 


INSTRUCTION 


11396 


17 


06898 


41412 


12980 




BTM 


PUTX 


,*+16 


11412 




00005 


94493 


12990 




DSA 


OPX, TRACE, SL 


11417 




00005 


€4032 












11422 




00005 


92399 












11424 


49 


02628 


00000 


13000 




B 


CLEAR 




11432 








13010 




DORG 


*-3 












13020 




OUTPUT FRF AC 


INSTRUCTION 


11432 


17 


06898 


1-1448 


13030 




BTM 


PUTX 


,* + 16 


11448 




00005 


94493 


13040 




DSA 


OPX 




11453 




00005 


94222 


13050 




DSA 


FRFAC 




11458 




00005 


92399 


13060 




DSA 


SL 




11460 


49 


02628 


00000 


13070 




B 


CLEAR 




11468 








13080 




DORG 


*-3 




11468 


17 


04 276 


1-1484 


13090 


N60013 


BTM 


SRFCT 


,* + 16 


11484 




00005 


92372 


13100 




DSA 


SR 




11489 




00005 


93786 


13110 




DSA 


N40002 




11490 


15 


07343 


00001 


13120 




TDM 


SS2 


,1 


11502 


17 


06898 


41518 


13130 




BTM 


PUTX 


,*+16 


11518 




00005 


94493 


13140 




DSA 


OPX 




11523 




00005 


94227 


13150 




DSA 


TOFAC 




11528 




00005 


93786 


13160 




DSA 


N40002 




11530 


25 


09322 


04673 


13170 




TD 


EXIND 


, FXORFL 


11542 


44 


11072 


09325 


13180 




BNF 


SLC 


,RSW 


11554 


49 


11060 


00000 


13190 




B 


SLC-12 




11562 








13200 




DORG 


*-3 












13210 




ENTRY OPERATOR IS EXPONENTIAL 


11562 . 


14 


02399 


09101 


13220 


C0DE1D 


CM 


SL, 101, 8, FAC 


11574 


47 


11910 


01200 


13230 




BNE 


N60015 




11586 


43 


11606 


05095 


13240 


C0DE1G 


BD 


*+20 


, FLAGSW 


11598 


49 


11758 


00000 


13250 




B 


N60016 




11606 








13260 




DORG 


*-3 




11606 


15 


07343 


00001 


13270 




TDM 


SS2 


, 1 


11618 


17 


04276 


41634 


13280 




BTM 


SRFCT 


,*+16 


11634 




00005 


92372 


13290 




DSA 


SR 




11639 




00005 


99490 


13300 




DSA 


J 




11640 


25 


11663 


05095 


13310 




TD 


* + 23 


, FLAGSW 


11652 


14 


04673 


00090 


13320 




CM 


FXORFL 


,0 , 10 


11664 


46 


11688 


01200 


13330 




BE 


* + 24 





NOVEMBER, 1966 



1/5 



•«*** 




SECOND 


PASS FORTRAN 












LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 


U676 


17 


12042 


41688 


13340 




BtM 


ERMOD 


,*+12 


11688 


17 


06898 


41704 


13350 


N60017 


BTM 


PUTX 


,*+16 


11704 




00005 


#4493 


13360 




DSA 


OPX 




11709 




00005 


64247 


13370 




DSA 


IXI 




11714 




00005 


39490 


13380 




DSA 


J 




11716 


17 


05570 


41732 


13390 


C0DE1F 


BTM 


RPNS 


»*+16 


11732 




00005 


39485 


13400 




DSA 


I 




11737 




00005 


€9469 


13410 




DSA 


FAC 




11738 


15 


09314 


00004 


13420 




TDM 


FSW 


,1 


11750 


49 


03206 


00000 


13430 




B 


EXIT 




11758 








13440 




DORG 


*-3 




11758 


17 


04276 


41774 


13450 


N60016 


BTM 


SRFCT 


,* + 16 


11774 




00005 


82372 


13460 




PSA 


SR 




11779 




00005 


89490 


13470 




DSA 


J 




11780 


25 


04007 


04673 


13480 




TO 


FX 


, FXORFL 


11792 


43 


11828 


04007 


13490 




BD 


*+36 


,FX 


11804 


15 


02263 


00001 


13500 




TDM 


UFSTR 


,1 


11816 


15 


02264 


00001 


13510 




TDM 


UFSTR+1 


,1 


11828 


15 


07343 


00001 


13520 




TDM 


SS2 


,1 


11840 


17 


03888 


41856 


13530 




BTM 


OPSR 


,* + 16 


11856 




00005 


99 505 


13540 




DSA 


LV 




11861 




00005 


83786 


13550 




DSA 


N40002 




11862 


17 


06898 


41878 


13560 




BTM 


PUTX 


,*+16 


11878 




00005 


84493 


13570 




DSA 


OPX 




11883 




00005 


83786 


13580 




DSA 


N40002 




11888 




00005 


89490 


13590 




DSA 


J 




11890 


15 


04673 


00000 


13600 




TDM 


FXORFL 


,0 


11902 


49 


10716 


00000 


13610 




B 


C0DE1H 




11910 








13620 




DORG 


#-3 




11910 


44 


11956 


09314 


13630 


N60015 


BNF 


N60018 


»FSW 


11922 


17 


05830 


1-1934 


13640 




BTM 


GNRP 


,* + 12 


11934 


17 


05540 


1-1950 


13650 




BTM 


GTNS 


,# + 16 


11950 




00005 


89485 


13660 




DSA 


I 




11955 




00005 


82372 


13670 




DSA 


SR 




11956 


17 


04276 


1-1972 


13680 


N60018 


BTM 


SRFCT 


, * + 16 


11972 




00005 


82399 


13690 




DSA 


SL 




11977 




00005 


89490 


13700 




DSA 


J 




11978 


25 


05095 


04673 


13710 




TD 


FLAGSW 


, FXORFL 


11990 


15 


07343 


00001 


13720 




TDM 


SS2 


,1 


12002 


17 


06898 


1-2018 


13730 




BTM 


PUTX 


,* + 16 


12018 




00005 


84493 


13740 




DSA 


OPX 




12023 




00005 


84227 


13750 




DSA 


TOFAC 




12028 




00005 


89490 


13760 




DSA 


J 




12030 


49 


11586 


00000 


13770 




B 


C0DE1G 




12042 


17 


08998 


1-2075 


13780 


ERMOD 


BTM 


ERRT 


, MODMES 


12054 


15 


09601 


00001 


13790 




TDM 


ERSWT 


, 1 


12066 


49 


1204-1 




13800 




B7 


ERMOD-1, 


6 


12075 




00023 


X2 


13810 


MODMES 


DAC 


23, 


MIXED 


12120 


15 


05045 


00000 


13820 


FCT1E 


TDM 


FTSW 


,0 


12132 


15 


07342 


00001 


13830 




TDM 


SSI 


, 1 


12144 


15 


07344 


00001 


13840 




TDM 


SS3 


, 1 


12156 


26 


03831 


06888 


13850 




TF 


N40011 


,T1 


12168 


12 


03831 


00081 


13860 




SM 


N40011 


, 1 


12180 


17 


06898 


1-2196 


13870 




BTM 


PUTX 


,* + 16 


12196 




00005 


86848 


13880 




DSA 


B 




12201 




00005 


93831 


13890 




DSA 


N40011 




12206 




00005 


89344 


13900 




DSA 


BLANK 





NOVEMBER, 1966 



//6 



SECOND PASS FORTRAN II 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




12208 


12 


06843 


00094 


13910 




SM 


ADCOW 


,4 


. 10 


12220 


17 


08138 


1-22 36 


13920 




BTM 


PUTA 


,* + 16 




12236 




00005 


89520 


13930 




DSA 


SXF, ADCOW 






12241 




00005 


96843 














12242 


22 


02302 


06838 


13940 




S 


TBASE-1, TMAX 






12254 


16 


06838 


00800 


13950 




TFM 


TMAX , 0,9 






12266 


49 


02628 


00000 


13960 




B 


CLEAR 






12274 








13970 




DORG 


*-3 














13980 


####** 


OUTPUT FUNCTION 


LINKAGE 


OR REMOVE PARENTHESIS 


122 74 


12 


03786 


00091 


13990 


C0DE3P 


SM 


N40002 


, 1 


, 10 


12286 


17 


05540 


1-2302 


14000 




BTM 


GTNS 


,* + 16 




12302 




00005 


93786 


14010 




DSA 


N40002 






12307 




00005 


92399 


14020 




DSA 


SL 






12308 


14 


02399 


09101 


14030 




CM 


SL, 101,8 


,FAC 




12320 


47 


12364 


01300 


14040 




BL 


N60020 






12332 


14 


02399 


08154 


14050 




CM 


SL, 154,8 


, AR I TH STATEMENT CALL 


12344 


46 


12364 


01100 


14060 




BH 


N60020 






12356 


49 


12698 


00000 


14070 




B 


C0DE3B 






12364 








14080 




DORG 


*-3 






12364 


12 


09485 


00091 


14090 


N60020 


SM 


I 


, 1 


, 10 


12376 


17 


05510 


t-2392 


14100 




BTM 


RMNS 


,* + 16 




12392 




00005 


99485 


14110 




DSA 


I 






12397 




00005 


92399 


14120 




DSA 


SL 






12398 


17 


05510 


1-2414 


14130 




BTM 


RMNS 


,* + 16 




12414 




00005 


99485 


14140 




DSA 


I 






12419 




00005 


82372 


14150 




DSA 


SR 






12420 


17 


05510 


1-2436 


14160 




BTM 


RMNS 


,* + 16 




12436 




00005 


9948 5 


14170 




DSA 


I 






12441 




00005 


92372 


14180 




DSA 


SR 






12442 


14 


02372 


001-01 


14190 




CM 


SR 


, 101 


,9 


12454 


46 


12544 


01200 


14200 




BE 


N60021 






12466 


44 


12490 


09314 


14210 




BNF 


N60022 


,FSW 




12478 


17 


05830 


1-2490 


14220 




BTM 


GNRP 


,* + 12 




12490 


17 


04276 


1-2506 


142 30 


N60022 


BTM 


SRFCT 


,* + 16 




12506 




00005 


92372 


14240 




DSA 


SR 






12511 




00005 


92372 


14250 




DSA 


SR 






12512 


15 


07343 


00001 


14260 




TDM 


SS2 


, 1 




12524 


25 


05095 


04673 


14270 




TD 


FLAGSW 


, FXDRFL 




12536 


49 


12568 


00000 


14280 




B 


C0DE3A 






12 544 








14290 




DORG 


*-3 






12544 


26 


02372 


04232 


14300 


N60021 


TF 


SR 


,FACAD 




12556 


16 


04493 


0004 7 


14310 




TFM 


OPX 


,17 


, 10 










14320 


****** 




OUTPUT LIBRARY 


FUNCTION 


LINKAGE 


12568 


15 


07344 


00001 


14330 


C0DE3A 


TDM 


SS3 


,1 




12580 


26 


03786 


02303 


14340 




TF 


N40002 


, TBASE 




12592 


26 


03785 


02399 


14350 




TF 


N40002-1 


,SL 




12604 


15 


03786 


00009 


14360 




TDM 


N40002 


,9 




12616 


26 


03786 


03786 


14370 




TF 


N40002 


,N40002 


,11 


12628 


17 


06898 


1-2644 


14380 




BTM 


PUTX 


,*+16 




12644 




00005 


94493 


14390 




DSA 


OPX 






12649 




00005 


93786 


14400 




DSA 


N40002 






12654 




00005 


92372 


14410 




DSA 


SR 






12656 


17 


05570 


1-2672 


14420 




BTM 


RPNS 


,*+16 




12672 




00005 


89485 


14430 




DSA 


I 






12677 




00005 


99469 


14440 




DSA 


FAC 






12678 


15 


09314 


00004 


14450 




TDM 


FSW 


, 1 


,11 


12690 


49 


03206 


00000 


14460 




B 


EXIT 







//7 



***** SECOND PASS FORTRAN II 



NOVEMBER, 1966 PAGE 27 



LOCTN 


OP 


P/ L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 




12698 








14470 




DORG 


*-3 










12698 


14 


02399 


08-154 


14480 


C0DE3B 


CM 


SL i 


154, 


a 


, AR I TH 


STATEMENT CALL 


12710 


46 


12846 


01200 


14490 




BE 


C0DE3C 










12722 


14 


02399 


06153 


14500 




CM 


SL , 


153 , 


„ 


.FUNCTION CALL 


12734 


46 


12846 


01200 


14510 




BE 


C0DE3C 










12746 


14 


02399 


0&107 


14520 


N60023 


CM 


SL, 


107, 




,IF 




12758 


46 


10098 


01200 


14530 




BE 


C0DE7 










12770 


17 


05510 


■12786 


14540 




BTM 


RMNS 






,*+16 




12786 




00005 


•8948 5 


14550 




DSA 


I 










12791 




00005 


62372 


14560 




DSA 


SR 










1 2 792 


1 1 


09485 


0006 1 


14570 




AM 


I 






, 1 


i 10 






055 10 


-12820 


14580 




BTM 


RMNS 






,*+16 




i 9Q9ri 




00005 


6948 5 


14 590 




DSA 


I 














00005 


62372 


14600 




DSA 


SR 










1 9 09 i 

J- 


1 2 


09485 


0006 1 


14610 




SM 


I 






, 1 


, 10 


12838 


49 


03206 


00000 


14620 




B 


EXIT 










12846 








14630 




DORG 


*-3 


















14640 




ARITH STATEMENT CALL DR 


FUNCTION CALL 


12846 


1 2 


09485 


00062 


14650 


C0DE3C 


SM 


I 






,2 


, 10 


12858 


1 7 


05510 


12874 


14660 


C0DE3Y 


BTM 


RMNS 






,*+16 




12874 




00005 


6948 5 


14670 




DSA 


I 










^ ?R«n 




00005 


62 399 


14680 




DSA 


SL 












1 


05510 


1-2896 


14690 




BTM 


RMNS 






,* + 16 




128 96 




00005 


6948 5 


14700 




DSA 


I 










12901 




00005 


69 505 


14710 




DSA 


LV 










12902 


1 7 


05510 


12918 


14720 




BTM 


RMNS 






,* + 16 




12918 




00005 


8948 5 


14730 




DSA 


I 










12923 




00005 


62372 


14740 




DSA 


SR 










12924 


44 


12948 


09314 


14750 




BNF 


N60026 






,FSW 




12936 


17 


05830 


■12948 


14760 




BTM 


GNRP 






,*+12 




12948 


14 


09505 


06154 


14770 


N6O026 


CM 


LV , 


154 , 


8 


, AR I TH 


STATEMENT CALL 


12960 


46 


12984 


01200 


14780 




BE 


N60027 










12972 


15 


07344 


0000 1 


14790 




TDM 


SS3 






, 1 




1 2 984 


1 6 


07343 


000-1 1 


14800 


N60027 


TFM 


SS2 






,11 


, 10 


12996 


17 


04276 


43012 


14810 




BTM 


SRFCT 






,*+16 




13012 




00005 


62399 


14820 




DSA 


SL 










13017 




00005 


6378 1 


14830 




DSA 


N40001 












26 


03791 


06843 


1 4840 




TF 


N40003 






,ADCOW 




l -*nf 9 


9 J. 


03791 


000 11 


14850 




AM 


N40003 






,11 


r 10 


l ^n^f 




05095 


04673 


14860 




TD 


FLAGSW 






, FXORFL 








06898 


13070 


14870 




BTM 


PUTX 






,*+16 




1 \ It 




00005 


66846 


14880 




DSA 


BTM 










130 




00005 


63781 


14890 




DSA 


N40001 










13080 




00005 


63791 


14900 




DSA 


N40003 










13082 


43 


1 3334 


05055 


14910 




BD 


C0DE3Z 






,CALLX 




1 3094 


1 5 


09597 


00000 


14920 


C0DE3D 


TDM 


FPSW 






,0 






1 7 


05510 


43122 


14930 




BTM 


RMNS 






,*+16 




13122 




00005 


6948 5 


14940 




DSA 


I 














00005 


62399 


1 49 50 




DSA 


SL 












1 7 


0554 


13144 


14960 




BTM 


GTMS 






,*+16 




13144 




0000 5 








DSA 


I 










13149 




00005 


62372 


14980 




DSA 


SR 










13150 


17 


04276 


13166 


1499 




BTM 


SRFCT 






,*+16 




13166 




00005 


62399 


15000 




DSA 


SL 










13171 




00005 


62399 


15010 




DSA 


SL 










13172 


44 


13196 


09597 


15020 




BNF 


* + 24 






,FPSW 




13184 


32 


02399 


00000 


15030 




SF 


SL 











//8 







SECOND 


PASS FORTRAN 


I I 












LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 


13196 


17 


08018 


13212 


15040 




BTM 


POTC 




,*+16 


13212 




00005 


62399 


15050 




DSA 


SL 






13214 


14 


02372 


06104 


15060 


C0DE3E 


CM 


SR , 


104, 


8, RIGHT PARFN 


13226 


46 


13268 


01200 


15070 




BE 


N60032 






13238 


17 


05510 


1-3254 


15080 




BTM 


RMNS 




,*+16 


13254 




00005 


69485 


15090 




DSA 


I 






13259 




00005 


62372 


15100 




DSA 


SR 






13260 


49 


13094 


00000 


15110 




B 


C0DF3D 






13268 








15120 




DORG 


*-3 






13268 


17 


03842 


66843 


15130 


N60032 


BTM 


ADJUST 




, ADCOW 


13280 


43 


13354 


09320 


15140 


C0DE3X 


BD 


CET 




,CAL LSW 


13292 


17 


05570 


13308 


15150 




BTM 


RPMS 




,*+16 


13308 




00005 


69485 


15160 




DSA 


I 






13313 




00005 


69469 


15170 




DSA 


FAC 






13314 


15 


09314 


00001 


15180 




TDM 


FSW 




,1 ,11 


13326 


49 


03206 


00000 


15190 




B 


EX IT 






13334 








15200 




DORG 


*-3 






13334 


15 


05055 


00000 


15210 


C0DE3Z 


TDM 


CALLX 




,0 


13346 


49 


02628 


00000 


15220 




B 


CLEAR 






13354 








15230 




DQRG 


*-3 






13354 


26 


03781 


09485 


15240 


CET 


TF 


M40001 




, I 


13366 


11 


03781 


00061 


15250 




AM 


M40001 




,1 ,10 


13378 


17 


05540 


43394 


15260 




BTM 


GTNS 




,*+16 


13394 




00005 


63781 


15270 




DSA 


N40001 ,N40001 




13399 




00005 


63781 














13400 


14 


03781 


06132 


15280 




CM 


N40001 




,132 ,8 


13412 


46 


02628 


01200 


15290 




BE 


CLEAR 






13424 


49 


13292 


00000 


15300 




B 


C0DF3X+12 






13432 








15310 




DORG 


*-3 














15320 


****** 




OUTPUT REVERSE 


SIGN INSTRUCTIONS 


13436 




00005 


69485 


15330 


C0DE4P 


DSA 


I 






13441 




00005 


69 50 5 


15340 




DSA 


LV 






13442 


17 


05540 


43458 


15350 




BTM 


GTNS 




,* + 16 


13458 




00005 


69485 


15360 




DSA 


I 






13463 




00005 


62372 


15370 




DSA 


SR 






13464 


26 


09505 


09385 


15380 




TF 


LV 




,RVSN 


134 76 


14 


02372 


06101 


15390 




CM 


SR, 


101, 


8, FAC 


13488 


47 


13570 


01200 


15400 




BNE 


N60034 






13500 


25 


04007 


05095 


15410 




TD 


FX 




, FLAGSW 


13512 


17 


03888 


1-3528 


15420 


C0DE4A 


BTM 


OPSR 




,*+16 


13528 




00005 


69505 


15430 




DSA 


LV ,N40003 






13533 




00005 


63791 














13534 


17 


06898 


13550 


15440 




BTM 


PUTX 




,*+16 


13550 




00005 


66846 


15450 




DSA 


BTM 






13555 




00005 


63791 


15460 




DSA 


N40003 






13560 




00005 


69341 


15470 




DSA 


ZERO 






13562 


49 


03206 


00000 


15480 




B 


EXIT 






13570 








15490 




DORG 


*-3 






13570 


44 


13594 


09314 


15500 


N60034 


BNF 


N60035 




,FSW 


13582 


17 


05830 


43594 


15510 




BTM 


GNRP 




,*+12 


13594 


15 


07343 


00001 


15520 


N60035 


TDM 


SS2 




, 1 


13606 


17 


04276 


1-3622 


15530 




BTM 


SRFCT 




,* + 16 


13622 




00005 


62372 


15540 




DSA 


SR 






13627 




00005 


63791 


15550 




DSA 


N40003 






13628 


17 


06898 


t3644 


15560 




BTM 


PUTX 




,* + 16 


13644 




00005 


64493 


15570 




DSA 


OPX 






13649 




00005 


6422 7 


15580 




DSA 


TDFAC 
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LOCTN 

13654 
13656 
13668 
13680 
13696 
13701 
13702 
13714 
13722 
13722 
13738 
13 743 
13744 
13756 
13768 
13776 
13776 
13792 
13797 
13798 
13810 
13822 
13838 
13843 
13844 
13856 
13868 
13880 
13888 
14100 

14101 
14102 
141 14 
14126 
14138 
14150 
14162 
14174 
14186 
14202 
14207 
14208 
14224 
14229 
14230 
14246 
14251 
14252 
14264 
14280 
14285 
14286 
14298 
14310 
14326 
14331 



LOCTN 

14332 
14344 
14356 
14372 
14377 
14378 
14390 
14402 
14414 
1442 6 
14434 
14446 
14458 
14470 
14482 
14494 
14506 
14522 
14527 
14528 
14540 
14548 
14560 
14572 
14588 
14593 
14594 
14606 
14614 
14630 
14635 
14636 
1464 8 
14660 
14672 
14688 
14693 
14698 
14700 
14716 
14718 
14734 
14736 
14748 
14760 
14776 
14778 
14794 
14796 
14808 
14820 
14832 
14848 
14853 
14854 
14870 
14872 
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OP 


P/L 


o 


PG/ LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 




00005 


03791 


1 5590 




OSA 


N40003 




15 


09314 


00004 


15600 




TOM 


FSW 


, 1 


25 


05095 


04673 


15610 




TD 


FLAGSW 


, FXORFL 


17 


05570 


43696 


1 5620 




BTM 


RPNS 


,*+16 




00005 


69485 


15630 




DSA 


I 






00005 


69469 


15640 




DSA 


FAC 




25 


04007 


04673 


15650 




TD 


FX 


, FXORFL 


49 


13512 


00000 


15660 




B 


C0DE4A 










15670 




DORG 


*-3 




17 


05540 


1-3738 


15680 


C0DE8P 


BTM 


GTNS 


,* + 16 




00005 


99485 


15690 




DSA 


I 






00005 


99505 


15700 




DSA 


LV 




14 


09505 


09124 


15710 




CM 


LV, 


124, 8, LEFT PAREN 


47 


10122 


01200 


15720 




BNE 


CODE 8 




49 


1 0026 


00000 






g 


*-3^ 










1 S740 










j 7 


055 10 


43792 






btm'' 




, + 16 




00005 


6948 5 


15760 




DSA 








00005 


62 399 


15770 




DSA 


SL 




26 


03836 


09485 


15780 




TF 


N4001 2 


, I 


1 1 


03836 


00092 


15790 




AM 


N4001 2 


, 2 


17 


05540 


1-3838 


1 5800 




BTM 


GTNS 


, *+16 




00005 


6-3836 


15810 




DSA 


N4001 2 






00005 


62377 


15820 




DSA 


SX 




14 


02377 


06132 


15830 




CM 


SX, 


132,8, SEMI COLON 


47 


03206 


01200 


15840 




BNE 


EXIT 




15 


05055 


00001 


15850 




TDM 


CALLX 


, 1 


49 


12858 


00000 


15860 




B 


C0DE3Y 










15870 




DORG 


*-3 










15880 




DORG 


14100 










15890 


****** 


TERTIARY LINKAGE BLOCK 5 




00002 




15900 




DC 


2,5 




17 


05510 


44202 


15910 


SUBCDS 


BTM 


RMNS 


,CDSSP 


48 


00000 


00000 


15920 




H 






16 


02359 


69236 


15930 


SUBCAB 


TFM 


FMON+35 


, BLK6 


1 7 


02324 


1-4126 


1 5940 




BTM 


FMON 


, SUBCAB 


16 


02359 


69260 


1 5950 


SUBC12 


TFM 


FMON+35 


, BLK7 


1 7 


02324 


t41 50 


1 5960 




BTM 


FMON 


, SUBC12 


16 


02359 


69284 


1 5970 


SUB12B 


TFM 


FMON + 35 


, BLK8 


1 7 


02324 


1-4174 


1 5980 




BTM 


FMON 


, SUB12B 




00005 


99485 


1 5990 




DSA 


I ,SR 






00005 


0-2 372 












1 7 


05510 


1-4224 


1 6000 




BTM 


RMNS 


,* + 16 




00005 


0948 5 


16010 




DSA 


I ,SY 






00005 


62384 












17 


05510 


1-4246 


16020 




BTM 


RMNS 


,* + 16 




00005 


0948 5 


16030 




DSA 


I ,SY 






00005 


92384 












12 


09485 


00091 


16040 




SM 


I 


, 1 


17 


05540 


1-4280 


16050 




BTM 


GTNS 


,*+16 




00005 


9948 5 


16060 




DSA 


I , SX 






00005 


92377 












1 1 


09485 


00091 


16070 




AM 


I 


, 1 


15 


09599 


00001 


16080 




TDM 


SKIPSW 


, 1 


17 


04276 


44326 


16090 




BTM 


SRFCT 


,*+16 




00005 


62377 


16100 




DSA 


SX , S X 






00005 


62377 
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OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


25 


15577 


04451 


16110 




TD 


SPCOM 


,COMSW 


25 


05035 


04673 


16120 




TD 


RXFLAG 


, FXORFL 


17 


08712 


44372 


16130 




BTM 


CANDS 


,*+16 




00005 


66853 


16140 




DSA 


Dl ,DI 






00005 


66858 












26 


03801 


06843 


16150 




TF 


N40005 


, ADCDW 


11 


03801 


00042 


16160 




AM 


N40005 


, 12 


15 


07343 


00001 


16170 




TDM 


SS2 


, 1 


43 


14434 


05035 


16180 




BD 


* + 20 


, RXFLAG 


49 


14446 




16190 




B7 


* + 20 




32 


03801 


00000 


16200 




SF 


N40005 




14 


02372 


09150 


16210 




CM 


SR 


, 150 


47 


14614 


01300 


16220 




BL 


XXI 




46 


14548 


01200 


16230 




BE 


XX2 




11 


09485 


00096 


16240 


XX3 


AM 


I 


,6 


26 


03806 


04092 


16250 




TF 


N40006 


,SUB3 


17 


08712 


44522 


16260 




BTM 


CANDS 


,*+16 




00005 


66883 


16270 




DSA 


D4,SY 






00005 


62384 












12 


09485 


00006 


16280 




SM 


I 


,6 


49 


14672 




16290 




B7 


XX4 




11 


09485 


00093 


16300 


XX2 


AM 


I 


, 3 


26 


03806 


04082 


16310 




TF 


N40006 


,SUB2 


17 


08712 


44588 


16320 




BTM 


CANDS 


,*+16 




00005 


66883 


16330 




DSA 


D4,SY 






00005 


62384 












12 


09485 


00063 


16340 




SM 


I 


,3 


49 


14672 




16350 




B7 


XX4 




17 


08712 


1-4630 


16360 


XXI 


BTM 


CANDS 


,* + 16 




00005 


9688 3 


16370 




DSA 


D4,SY 






00005 


92384 












26 


03806 


04072 


16380 




TF 


N40006 


,SUB1 


14 


06853 


60001 


16390 




CM 


Dl 


, 1 


46 


15394 


01200 


16400 




BE 


CDS1FP 




17 


06898 


1-4688 


16410 


XX4 


BTM 


PUTX 


,* + 16 




00005 


96846 


16420 




DSA 


BTM,N40006,N40005 




00005 


93806 














00005 


93801 












17 


08018 


1-4716 


16430 




BTM 


PUTC 


,* + 16 




00005 


92 377 


16440 




DSA 


SX 




17 


08102 


t4734 


16450 




BTM 


PUTD 


,* + 16 




00005 


96883 


16460 




DSA 


D4 




44 


14760 


09315 


16470 




BNF 


* + 24 


,101 


32 


06853 


00000 


16480 




SF 


Dl 




17 


08102 


1-4776 


16490 




BTM 


PUTD 


,* + 16 




00005 


96853 


16500 




DSA 


Dl 




17 


08018 


1-4794 


16510 




BTM 


PUTC 


,* + 16 




00005 


96858 


16520 




DSA 


Dl 




14 


02372 


09150 


16530 




CM 


SR 


, 150 


47 


14948 


01300 


16540 




BL 


CDSSS1 




46 


14890 


01200 


16550 




BE 


XX5 




17 


08712 


1-4848 


16560 


CDSSS3 


BTM 


CANDS 


,*+16 




00005 


96863 


16570 




DSA 


D2 ,DJ 






00005 


96868 












17 


08102 


1-4870 


16580 




BTM 


PUTD 


,* + 16 




00005 


06863 


16590 




DSA 


D2 




17 


08018 


14888 


16600 




BTM 


PUTC 


,*+16 
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SECOND 


PASS FORTRAN 


II 










LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 


14888 




00005 


©6868 


16610 




DSA 


DJ 




14890 


17 


08712 


1-4906 


16620 


XX5 


BTM 


CANDS 


,* + 16 


14906 




00005 


96873 


16630 




DSA 


D3.DK 




14911 




00005 


96878 












14912 


17 


08102 


1-4928 


16640 




BTM 


PUTD 


» * + 16 


14928 




00005 


66873 


16650 




DSA 


D3 




14930 


17 


08018 


1-4946 


16660 




BTM 


PUTC 


,* + 16 


14946 




00005 


96878 


16670 




DSA 


DK 




14948 


15 


02265 


00001 


16680 


CDSSS1 


TDM 


UFSTR+2 


, 1 


14960 


17 


08222 


44976 


16690 


CDS1V 


BTM 


PUTRM 


,* + 16 


14976 




00005 


•15497 


16700 




DSA 


ZRM 




14978 


15 


09599 


00000 


16710 




TDM 


SKIPSW 


,0 


14990 


44 


15044 


09315 


16720 




BNF 


OZP 


,101 


15002 


12 


09485 


00061 


16730 




SM 


I 


, 1 


15014 


17 


05510 


4 5030 


16740 




BTM 


RMNS 


,* + 16 


15030 




00005 


69485 


16750 




DSA 


I ,ST 




15035 




00005 


69481 












15036 


49 


12008 


00000 


16760 




B 


CD14B 




15044 








16770 




DORG 


*-3 




15044 


17 


05540 


4 5060 


16780 


OZP 


BTM 


GTNS 


,*+16 


15060 




00005 


6948 5 


16790 




DSA 


I t ST 




15065 




00005 


69481 












15066 


12 


09485 


00061 


16800 




SM 


I 


, 1 


15078 


14 


09481 


06133 


16810 




CM 


ST 


,133 


15090 


47 


15188 


01200 


16820 




BNE 


CDS1T 




15102 


25 


05025 


05035 


16830 




TD 


RFLAG 


jRXFLAG 


151 14 


15 


09325 


00004 


16R40 




TDM 


RSW 


, 1 


15126 


17 


06898 


45142 


16850 




BTM 


PUTX 


, #+ 16 


15142 




00005 


69333 


16860 




DSA 


TF ,FACAD, 


N 13092 


15147 




00005 


64232 












15152 




00005 


69357 












15154 


17 


05570 


45170 


16870 




BTM 


RPNS 


,*+16 


15170 




00005 


69485 


16880 




DSA 


I ,FAC 




15175 




00005 


69469 












151 76 


17 


05830 


63206 


16890 




BTM 


GMRP 


,EXIT 


15188 


44 


15212 


09314 


16900 


CDS IT 


BNF 


* + 24 


,FSW 


15200 


17 


05830 


1-5212 


16910 




BTM 


GNRP 


,* + 12 


15212 


43 


15244 


09320 


16920 




BD 


* + 32 


.CALLSW 


15224 


16 


04493 


00037 


16930 




TFM 


OPX 


,27 


15236 


4 9 


15256 


00000 


16940 




B 


* + 20 




15244 








16950 




DORG 


*-3 




15244 


16 


04493 


00047 


16960 




TFM 


OPX 


,17 


15256 


17 


06898 


45272 


16970 




BTM 


POT X 


,* + 16 


15272 




00005 


64493 


16980 




OSA 


OPX.TOFAC 


,N13092 


15277 




00005 


64227 












15282 




00005 


69357 












15284 


17 


05570 


45300 


16990 




BTM 


RPNS 


,*+16 


15300 




00005 


69485 


17000 




DSA 


I ,FAC 




15305 




00005 


69469 












15306 


15 


09314 


00004 


17010 




TDM 


FSW 


, 1 


15318 


25 


05095 


05035 


17020 




TD 


FLAGSW 


, RXF LAG 


15330 


43 


15350 


09320 


17030 




BD 


* + 20 


, CALLSW 


15342 


49 


03206 




17040 




B7 


EXIT 




15350 


17 


05830 


1-5362 


17050 




BTM 


GNRP 


,*+12 


15362 


12 


095 75 


00091 


17060 




SM 


GBASF 


, 1 


153 74 


32 


0957& 


00000 


17070 




SF 


GBASE 




15386 


49 


03206 




17080 




B7 


EXIT 
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LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


15394 


15 


15448 


00000 


17090 


C0S1FP 


TDM 


FXIOSW.O 




15406 


43 


15426 


05035 


17100 




BD 


*+20,RXFLAG 




15418 


49 


15450 




17110 




87 


PATSB2 




15426 


44 


15450 


09315 


17120 




BNF 


*+24,I01 




15438 


15 


1544 8 


00004 


17130 




TDM 


FXI0SW,-1 




15448 




00000 




17140 


FX insw 


DS 


,*_! 




15450 


44 


15498 


02377 


17150 


PATSB2 


BNF 


CDS1Z,SX 




15462 


43 


14672 


15448 


17160 




BD 


XX4,FXI0SW 




154 74 


15 


09597 


00004 


17170 




TDM 


FPSW.-l 




15486 


33 


02377 


00000 


17180 




CF 


SX 




15497 




00002 




17190 


ZRM 


DC 


2, a,* 




15498 


43 


15530 


05035 


17200 


CDS1Z 


BD 


* + 32 


,RXFLAG 


15510 


26 


06891 


02298 


17210 




TF 


L 


,FP2 


15522 


49 


15542 




17220 




B7 


CDS1S 




15530 


26 


06891 


02252 


17230 




TF 


L 


, K 


15542 


15 


07343 


00000 


17240 


CDS1S 


TDM 


SS2 


,0 


15554 


23 


06883 


06891 


17250 




M 


D4 


, L 


15566 


32 


00095 


00000 


17260 




SF 


95 




15577 




00000 




17270 


SPCOM 


ns 






15578 


26 


06883 


00099 


17280 




TF 


04 


,99 


15590 


43 


15626 


09597 


17290 




BD 


*+36,FPSW 




15602 


21 


06883 


02377 


17300 




A 


D4,SX 




15614 


26 


02384 


06 88 3 


17310 




TF 


SY,D4 




15626 


44 


15650 


15448 


17320 




BNF 


*+24,FXI0SW 




15638 


32 


06891 


00051 


17330 




SF 


L ,21 ,10 




15649 




00000 




17340 


OPJ 


OS 


, * 




15650 


15 


07342 


00001 


17350 




TDM 


SSI 


, 1 


15662 


17 


06898 


45678 


17360 




BTM 


PUT X 


,*+16 


15678 




00005 


69337 


17370 




DSA 


MM ,D I , L 




15683 




00005 


66858 












15688 




00005 


66891 












15690 


44 


15786 


09597 


17380 




BNF 


PATSBO, FPSW 




15702 


16 


15649 


000 31 


17390 




TFM 


OPJ 


,21 


15714 


43 


15738 


15577 


1740O 


ZPT 


BD 


*+24, SPCOM 




15726 


15 


07343 


00001 


17410 




TDM 


SS2,1 




15738 


17 


06898 


1-5754 


17420 




BTM 


PUTX,*+16 




15754 




00005 


5-5649 


17430 




DSA 


OPJ,N13092,SX 




15759 




00005 


99357 












15764 




00005 


92377 












15766 


43 


15922 


09597 


17440 




BD 


PPJA 


,FPSW 


15778 


49 


15842 




17450 




B7 


JARNDT 




15786 


44 


15810 


15448 


17460 


PATSBO 


BNF 


*+24,FXI0SW 




15798 


15 


07345 


00001 


17470 




TDM 


SS4,1 




15810 


44 


15842 


02384 


17480 




BNF 


JARNDT ,SY 




15822 


16 


15649 


00041 


17490 




TFM 


OPJ 


, 11 


15834 


49 


15714 




17500 




B7 


ZPT 




15842 


44 


15898 


02384 


17510 


JARMDT 


BNF 


ITUSO,SY 




15854 


22 


06883 


02377 


17520 


D4LNEG 


S 


D4,SX 




15866 


44 


15922 


15448 


17530 




BNF 


PPJA , FX IOSW 




15878 


33 


06883 


00000 


17540 




CF 


D4 




15890 


49 


15922 




17550 




B7 


PPJA 




15898 


43 


15922 


15577 


17560 


ITOSO 


BD 


*+24 , SPCOM 




15910 


15 


07343 


00001 


17570 




TDM 


SS2,1 




15922 


17 


06898 


45938 


17580 


PPJA 


BTM 


PUTX 


,*+16 


15938 




00005 


69335 


17590 




DSA 


AM.N13092 ,D4 




15 943 




00005 


69357 












15948 




00005 


66883 













LOCTN 

15950 
15966 
15971 
15976 
15978 
16002 
16002 
16016 
16028 
16040 
16052 
16064 
16076 
16016 
10000 





ccr nMn 

JCI, UIVU 


DAQQ EnQTDAM 


' 1 






OP 


P/L 


Q 


PG/LN 


LABEL MNEM 


OPERANDS AND REMARKS 


17 


06898 


4 5966 


17600 


BTM 


PUTX ,*+16 




00005 


69 32 9 


17610 


DSA 


SF ,N13133 .BLANK 




00005 


69364 










00005 


£9344 








49 


14978 




1 7620 


B7 


CDS 1 V+ 18 








17630 


DORG 


1 6002 




00014 




1 7640 


X00X DSC 


14i01780013602400 


34 


16002 


00701 


17650 


XYYX 34 


XOOX ,701 


25 


07885 


02323 


17660 


TD 


PUTPCH+ll.UGRMK 


25 


08626 


02323 


17670 


TD 


GRMK ,UGRMK 


38 


16002 


00702 


17680 


38 


XOOX, 702 


36 


00012 


00500 


17690 


TRA 




49 


00012 











NOVEMBER, 1966 







00002 




l ooo? 


16 






10014 




02324 


4-0002 


1 0026 


16 


02359 


69 116 


1 0038 


I 7 


02 324 


4*00 2 6 


10050 


16 


02359 


69116 


10062 


17 


02324 


1-0050 










100R6 


48 


00000 


00000 


10098 


14 


09515 


06130 


10110 


4 9 


11236 


00000 


10122 


16 


02 359 


8-9 116 


101 34 


1 7 






10146 


11 


09485 


00061 


10158 


49 


12164 


00000 


10170 


16 


02359 


69 1 16 


10182 


17 


02324 


40170 


10194 


16 


02359 


69164 


10206 


17 


02324 


40194 


10218 


16 


02359 


69116 


10230 


17 


02324 


40218 


10242 


17 


05510 


42874 


102 54 


48 


00000 


00000 


10266 


16 


02359 


69116 


10278 


17 


02324 


i-0266 


10290 


16 


02359 


69116 


10302 


17 


02324 


1-0290 


10314 


16 


02359 


69116 


10326 


17 


02324 


40314 


10338 


16 


02359 


99188 


10350 


17 


02324 


40338 


10362 


43 


14678 


02290 


10374 


49 


14690 


00000 


10386 


16 


02359 


69188 


103 98 


17 


02324 


40386 


10410 


16 


02359 


69164 


10422 


17 


02324 


40410 


1043 8 




00005 


6948 5 



17700 




TCD 


XYYX 




17710 




DORG 


10000 




17720 


****** 


SECONDARY LINKAGE FOR B 


1 7730 




DC 






17740 


X0DE1 






, BL K 1 


17750 




RTM 




, CODE 1 


17760 


X0DE3 


TPM 


FMON+35 




17770 




RTM 






17780 


X0DE4 


TFM 


FM ON + 3 5 


BLK1 


17790 




BTM 


FMON 


,C0DE4 


17800 


X0DE6 


BTM 


RMNS 


,C0DE6P 


17810 




H 






17820 


XODF7 


CM 


RV 


,130 


17 830 




B 


C0DF7P 




17 840 


X0DE8 


TFM 


FMON+35 


, BLK1 


17850 




BTM' 


FMON 


, CODE 8 


17860 


XO0E9 


AM 


I 


, 1 


17870 




B 


CODE 9P 




17880 


XODE12 


TFM 


FMON+35 


, BL K 1 


17890 




BTM 


FMON 


,C0DE12 


17900 


X0DE14 


TFM 


FMON+3 5 


, BLK3 


17910 




BTM 


FMON 


,C0DF14 


17920 


X0DE1 5 


TFM 


FMON+3 5 


, BL K 1 


17930 




BTM 


FMON 


,C0DE15 


17940 


XODE17 


BTM 


RMNS 


,CD17P 


17950 




H 






17960 


XOOESS 


TFM 


FMON+35 


, BLK1 


17970 




BTM 


FMON 


.CODESS 


17980 


XDSSAB 


TFM 


FMON+35 


, BLK1 


17990 




BTM 


FMON 


,CDSSAB 


18000 


X012B 


TFM 


FMON+35 


, BLK1 


18010 




BTM 


FMON 


,CD12B 


18020 


XCT1 


TFM 


FMON+35 


, BLK4 


18030 




BTM 


FMON 


,FCT1 


18035 


*********** 


********************** 


18040 




BD 


XCTRT.UFSTR+27 


18050 




B 


XCTRT+12 




18055 










18060 


XC1J 


TFM 


FMON+35 


» BLK4 


18070 




BTM 


FMON 


, EOJ 


18080 


XDCALL 


TFM 


FMON+35 


, BLK3 


18090 




BTM 


FMON 


,CDCALL 


18100 






OUTPUTS CODING 


FOR GO 


18110 


CCDF6P 


DSA 


I 





TO, STOP, PAUSF, AMD END 



/24 



SECOND PASS FORTRAN II 



NOVEMBER, 1966 



LOCTN 


OP 


P/L 


Q 


10443 




00005 


69505 


10444 


17 


05510 


40460 


10460 




00005 


69485 


10465 




00005 


62372 


10466 


17 


05510 


40482 


10482 




00005 


69 48 5 


10487 




00005 


62377 


104 88 


14 


09505 


06105 


105 00 


47 


10684 


01200 


10512 


43 


10532 


02290 


10524 


49 


10544 




10532 


12 


06843 


00042 


10544 


15 


09599 


00001 


10556 


17 


04276 


40572 


10572 




00005 


62372 


10577 




00005 


40881 


10578 


15 


09599 


00000 


10590 


44 


10624 


05085 


10602 


17 


11096 


40618 


10618 




00005 


62372 


10623 




00005 


66843 


10624 


15 


07342 


00001 


10636 


17 


06898 


40652 


10652 




00005 


66848 


10657 




00005 


40881 


10662 




00005 


69344 


10664 


12 


06843 


00064 


106 76 


49 


02628 


00000 


106 84 








10684 


14 


09505 


06127 


10696 


46 


02628 


01200 


10708 


14 


02377 


06132 


1072 


47 


10752 


01200 


10732 


16 


0949 


60000 


10744 


49 


10882 


00000 


10752 








10752 


16 


09490 


60000 


10764 


16 


10828 


69486 


10776 


17 


05510 


40792 


10792 




00005 


69485 


10797 




00005 


62377 


10798 


14 


02377 


06132 


10810 


46 


10870 


01200 


10822 


25 


09486 


02377 


10834 


11 


10828 


00061 


10846 


14 


10828 


69491 


10858 


47 


10776 


01300 


10870 


32 


09486 


00000 


10881 




00000 




10882 


14 


09505 


06126 


108 94 


43 


10914 


02290 


109 06 


49 


10926 





18480 
18490 
18500 
18510 
18520 
18530 
18540 
18550 
18560 
18570 
18571 
18573 
18575 



PG/LN 


LABEL 


MNEM 


OPERANDS 


AND 


REMARKS 


18120 




DSA 


LV 








18130 




BTM 


RMNS 






,*+16 


18140 




DSA 


I 








18150 




DSA 


SR 








18160 




BTM 


RMNS 






,*+16 


18170 




DSA 


I , SX 








18180 




CODE GO TO 








18190 




CM 


LV, 


105 


8 


,G0 TO 


18200 




BNE 


N60041 








18201 




;********* 




= * 


* * * * * * * * * * * * * * * * * * * * * J* * * * * * * 


18203 




BD 


*+20,UFSTR+27 


,,, BRANCH IF DIAGNOSTIC MODE 


18205 




B7 


* + 20 








18207 




SM 


ADCOW, 12 


, 10 




,,,DORG BACK OVER DIAGNOSTIC 


18209 














18210 




TDM 


SKIPSW 






1 


18220 




BTM 


SRFCT 






* + 16 


18230 




DSA 


SR 








18240 




DSA 


SK 








18250 




TDM 


SKIPSW 






,0 


18260 




BNF 


C0DE6B 






RMSW 


18270 




BTM 


INSFT 






* + 16 


18280 




DSA 


SR , ADCOW 








18290 


C0DE6B 


TDM 


SSI 






, 1 


18300 




BTM 


PUTX 






*+16 


18310 




DSA 


B 








18320 




DSA 


SK 








18330 




DSA 


BLANK 








18340 




SM 


ADCOW 






,4 , 10 


18350 


C0DE6A 


B 


CLEAR 








18360 




DORG 


*-3 








18370 


M60041 


CM 


LV, 


127 


8 


.CONTINUE 


18380 




BE 


CLEAR 








18390 




CM 


SX, 


132 


R 


SFMI COLON 


18400 




BNE 


N60043 








18410 




TFM 


J 






,0 


18420 




B 


N60044 








18430 




DORG 


*-3 








18440 


N60043 


TFM 


J 






,0 


18450 




TFM 


* + 64 






, J-4 


18460 




BTM 


RMNS 






,*+16 


18470 




DSA 


I , S X 









SX, 

N60044-12 



132, 8, SEMI COLON 



SF 
DS 



*-18 

N60043+24 
J-4 



SK 

****** CODE PAUSE 

N60044 CM LV, 126, 8, PAUSE 

***********************************************************, 

BD *+20,UFSTR+27 ,,, BRANCH IF IN DIAGNOSTIC MODE 
B7 *+20 



/Z5 



***** 




SECOND 


PASS FORTRAN 


1 1 












NOVEMBER, 1966 PAGE 


LOCTN 


OP 


p /(_ 









H IV tZ 1* 


nDCDAMnC 
UrtKAlNUo 


AND REMARKS 










60000 








-NEXTtO 




,,, FORCE 


TRACE PRINT 




























109 f4 


1 200 


185 80 




B NE 


N60045 








1 ,020 




06898 


409 54 


1 8590 




BTM 


PUTX 




* + 16 




l nos 




00005 


69339 


1 8600 




DSA 


H 








1 nqcq 




00005 




1 hap? 














10964 




00005 


69344 






DSA 


BLANK 








1 0966 


49 


02628 


00000 


1 RA30 




B 


CLEAR 








10974 








??, n 




OORG 


*-3 
















18650 


****** 




CODE STOP 








1 0974 


14 


09505 


06 125 


1 8660 


N60045 


CM 


LV, 


125,8 


STOP 




1 0986 


47 


11056 


01200 


18670 




BNE 


N60046 
















1 8700 


*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ t $$$$$$$ t$$$$ 


1 0998 


1 7 


06898 


41014 


1 8800 




BTM 


PUTX 




*+16 




11014 




0000 5 


£6848 


18810 




DSA 


B 








11019 




00005 


69606 


1 8820 




DSA 


N00796 








1 1 024 




00005 


£9344 


18830 




DSA 


BLANK 








11026 


12 


06843 


00064 


18840 




SM 


ADCOW 




4 


, 10 


11038 


49 


02628 


00000 






B 


CLEAR 








1 1 046 








1 8860 




DORG 


*-3 








11050 




00005 




1 8870 


N00951 


DC 


5,951 








1 1 055 




00005 




18880 


N00900 


DC 


5,900 
















1 8890 






CODE END 








11056 


1 7 


06898 


i-1072 


1 8900 


M60046 


BTM 


PUTX 




* + 16 












1 8 Q^n 


*$$$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$ $$$$$$$$$£$$$$$$$ $$$$$$$$$$$$$$$$$$$$ 






00005 




1 8950 




DSA 


B 








i nil 




00005 


•99606 


1 8960 




DSA 


N00796 








11082 




00005 


£9 344 


1 8970 




DSA 


BLANK 








1 1 084 


49 


10386 


00000 


1 8980 




B 


EOJ 








] i ?no 






1 1095 


1 8990 


INSET 


TF 


INSETA 




*-l 


, 11 














AM 


IMSET-1 




5 


, 10 


l l 1 ?n 




1 117a 




1 omn 




TF 


INSETB 




IMSET-1 


, 11 


11 1 3? 




l l not 


00061 






AM 


INSET-1 




1 


, 10 


11144 


?6 


03762 


00000 


1 onin 
1 Qnfn 




T F 


SETAD-1 








11155 




00000 






I NS ETA 


OS 


♦ * 








11156 


1 5 


03763 


00004 


1 905 




TDM 


S ET A D 




4 




1 1 168 


26 


11215 


00000 








S A DC W 








11179 




00000 




19070 


INSETB 


DS 










11180 


1 1 


11215 


00066 


19080 




AM 


SADCOW 




6 


, 10 


11192 


26 


0376-3 


11215 


19090 




T F 


SET AD 




SADCOW 


,6 


11204 


32 


03763 


00000 


19100 




S F 


SFTAO 






, 6 


11215 




00000 




19110 


SADC0W 


DS 










11216 


15 


05085 


00000 


19120 




TDM 


RMSW 









11228 


49 


1 1095 


00000 


19130 




B 


INSET-1 






, 6 


1 1 236 












DORG 


*-3 
















1 91 sn 


****** 




OUTPUT IF 


CODING 




11236 


46 


12022 


1 200 


19160 


CO0F7P 


BE 


C0DE7B 








1 1 248 


26 


03781 


0948 5 


191 70 




TF 


N40001 




I 




1126 


11 


03781 


0006 1 


19180 




AM 


N40001 




1 


, 10 


112 72 


1 7 


05540 


41288 






BTM 


GTNS 




*+16 




112 88 




00005 




19200 




DSA 


N40001 








11293 




00005 


62399 


19210 




DSA 


SL 








11294 


14 


02399 


06101 


19220 




CM 


SL 




101 


, 8 


11306 


46 


11392 


01200 


19230 




BF 


N60048 








11318 


17 


04 276 


41334 


19240 




BTM 


SRFCT 




*+16 




11334 




00005 


62399 


19250 




DSA 


SL 








11339 




00005 


63791 


19260 




DSA 


N40003 












SEC 0ND 


PASS FORTRAN 














NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P /L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 




1 1 340 


1 5 


07343 


0000 1 


19270 




TDM 


SS2 




1 




11352 


1 7 


06898 


41368 


19280 




BTM 


PUTX 




*+16 




11368 




00005 








DSA 


OPX 








1 1 373 




00005 


64227 


1 Q5 




DSA 


TOFAC 








11378 




00005 


6379 1 


19310 




DSA 


N40003 








11380 




05095 


046 73 


19320 




TD 


FLAGSW 




FXORFL 














******, 












:j 


44 






19 32 7 


N6 004 8 


BNF 


*+18,TRCSW,6 


,,,SKIP IF TRACE SWITCH MOT DM 


11 


44 


11 A// 


02226 


19330 




BNF 


*+40, IFTRC, , 


IF TRACE 












19335 


















06898 


-11432 


19 340 




BTM 


PUTX 




*+16 




1 1 

1 1 iX 7 




00005 


66846 


19350 




DSA 


BTM 












00005 


640 3 2 


19 360 




DSA 


TRACE 








11 44? 

11 




00005 


64232 


19 370 




DSA 


FACAD 


















* v * * * * 


OUTPUT FIXED VARIABLE IF 


TEST 


1 1 444 


43 


1464 


509 5 


1 own 




BD 


* + 20 




FLAGSW 






49 


1 786 


00000 


■ 01/111 




B 


N60049 








11464 








1 Q/ 1 (\ 




DORG 


*_ 3 








1 1 464 


1 1 


09485 


00062 






AM 


I 




2 


, 10 


11476 


17 


06898 


•1 1 49 2 






BTM 


PUT X 




*+16 




11492 




00005 


69 54 5 






DSA 


CM, FACAD, 


ZER04 






1 1497 




00005 


642 32 
















11502 




00005 


















1 1 504 


1 5 


09599 


00001 


19450 




TDM 


SKIPSW 




1 




11516 


17 


1 1672 


41 528 


1 9460 




BTM 


GSBI 




*+12 




11528 


17 


06898 


1-1 544 


1 9470 




BTM 


PUTX 




*+16 




11544 




00005 


69 547 


1 9480 




DSA 


BL ,N40003 


,N01300 




1 1 549 




00005 


63791 
















1 1 554 




00005 


69 552 
















11556 


1 7 


1 1672 


il 568 


1 9490 




BTM 


GSBI 




* + 12 




11568 


17 


06898 


i-1 584 


\ ntfn 




BTM 


PUTX 




*+16 




115 84 




00005 


?o7o? 


19510 




DSA 


BE,N40003 


,N01200 




i 1 1!! 




00005 


63791 




















00005 


69 5 59 
















1 l sot 








19520 


C0DE7C 


BTM 


GSBI 




* + 12 




l l Ans 

1 1 




06898 


41624 


19 530 




BTM 


PUTX 




* + 16 




/L 








19 540 




DSA 


B , N40003 , 


ZERO5' 












a* 7cn 
















11634 




00005 


69344 
















11636 


1 5 


09599 


00000 






TDM 


SKIPSW 









1 1 648 


1 2 


06843 


00064 


19560 




SM 


ADCOW 




4 


, 10 


1 1660 


49 


02628 


00000 


19570 




B 


CLEAR 








1 1672 


1 1 


09485 


00061 


1 9580 


GSBI 


AM 


I 




1 


, 10 


1 1684 


17 


05540 


tl 700 






BTM 


GTNS 




* + 16 




11700 




00005 


6948 5 


1 9600 




DSA 


I ,SK 








1 1 705 




00005 


1-0881 
















1 1 706 


1 7 


04276 


1-1 722 


19610 




BTM 


SRFCT 




*+16 




1 1 722 




00005 


tO 8 8 1 


19 620 




DSA 


SK,N40003 








1 1 727 




00005 


63791 
















11728 


44 


11762 


05085 


19630 




BNF 


* + 34 




RMSW 




1 1 74 


17 


1 1096 


•11756 


19640 




BTM 


INSET 




*+16 




11756 




00005 


4088 1 


19650 




DSA 


SK , ADCOW 








11761 




00005 


66843 
















11762 


15 


07342 


00001 


19660 




TDM 


SSI 




1 




11774 


49 


11671: 


00000 


19670 




B 


GSBI-1 






,6 


11786 


26 


03781 


06843 


19680 


N60049 


TF 


N40001 




ADCOW 




11798 


11 


03781 


00050 


19690 




AM 


N40001 




20 


, 10 







ccr riMn 

OCU UlNU 


DA cc cnOTDAM 












NOVEMBER, 1966 


LQCTN 


OP 


P/L 


Q 






MNEM 


OPERANDS 


AND REMARKS 




11810 


26 


03796 


04232 


19700 






N4 0004 


F ACAD 




11 822 


22 


03796 


02298 


19710 




s 


N40004 


iFP2 




11834 


I \ 


03796 










N40004 


» 1 , 


10 


1 1 846 


1 5 


07342 


00001 






TDM 


SSI 


, i 




11858 


17 


068 98 


tl 8 74 


19740 




BTM 




.# + 16 




11874 




00005 


69 56 1 


19750 




pSA 


BD , N4000 1 


, N40004 




118 79 




00005 
















1 1 884 




00005 


63796 














11886 


1 1 


09485 


00063 






AM 




» 3 t 


10 


11898 


15 


09599 




9770 




TDM 


SK I PSW 


I 




11910 


1 7 


1 1672 


■11922 


19780 




BTM 


GSB I 


» *+ 12 




11922 


17 


06898 


41938 


19790 




BTM 


PUTX 


, *+ 16 




11938 




00005 


66848 


19800 




DSA 


B ,N40003 , 


ZER05 




1 1 943 




00005 


6379 1 














1 1 94 8 




00005 


£9344 
















: ^ 






19810 






ADC0W 


,4 , 




1 1 QA7 








19820 




dt 


GSB I 


,*+12 




1 1 Q-7A 




nAQ Q 


J 1 QQ 


19830 




DTU 


PUT X 


,*+16 




11 oon 




00005 


69 56 3 


19840 




DSA 


BNF,N40003,FACM2 




1 1 995 




00005 
















12000 






69568 














12002 


1 2 


09485 


0006 3 


19850 




SM 


I 


.3 , 


10 


12014 


4 9 


1 1 596 


00000 








C0DE7C 






12022 








19870 




D0RG 


*-3 






12022 


1 1 


09485 


00063 


19 880 


C0DE7B 


AM 


I 


,3 , 


10 


12034 


I 7 


05540 


42050 


19890 




BTM 


GTNS 


,*+16 




12050 




00005 


6948 5 


19900 




DSA 


I , N4000 1 






12055 




00005 


63781 














1 2 056 


26 






19910 




T p 


INDREC-2 


,N40001 




12068 


32 


12153 


00000 


19920 




SF 


INOREC-4 






12080 




09 5 99 










SKIPSW 


, 1 




12092 




09485 


00061 


19940 




AM 


I 


> 1 , 


10 


1 2 1 04 


1 7 


11672 


1-2116 


19950 




BTM 


GSBI 


,* + 12 




121 16 


1 7 


06898 


1-2132 


1 9960 




BTM 


PUTX 


,* + 16 




12132 




00005 


69570 


1 9970 




DSA 


BI ,N40003 


, INDREC 




12137 




00005 


6379 1 














12142 




00005 


1-2157 














12144 


49 


115 96 


00000 


1 99H0 




_ 


C0DE7C 














. : 






*-3 






1215 7 




00006 




?nnnn 


I N0REC 


nr 


6,0 






1 2162 




UUUU3 




5 in 




n<; 


5 














?nn?n 






OUTPUT COMPUTED GO TO 




12164 




05540 






rnncoo 
U Ul J r V r 


BTM 


GTNS 


,* + 16 




1218 




00005 


6948^ 






DSA 


I 










00005 




on Xr\ 




DSA 


SL 






12186 


14 




06104 






CM 


SL, 


104, 8, RIGHT PAREN 




1 2 1 98 


47 


10146 


1 200 


?no70 




BNE 


C0DE9 














20071 








12210 


43 


1 22 30 


02290 


20073 




BD 


* + 20,UFSTR+27 tn BRANCH IF 


DIAGNOSTIC MODE 


12222 


49 


12242 




20075 




B7 


*+20 






12230 


16 


08322 


60000 


20077 




TFM 


-NEXT ,0 


, , , FORCE TRACF 


PRINT 










20079 












12242 


26 


03796 


09485 


20080 




TF 


M40004 


, I 




12254 


11 


03796 


00061 


20090 




AM 


N40004 


, 1 > 


10 


12266 


17 


05540 


42282 


20100 




BTM 


GTNS 


,*+16 




12282 




00005 


63796 


20110 




DSA 


N40004 






12287 




00005 


62399 


20120 




DSA 


SL 







/28 







SECOND 


PASS FORTRAN 


I I 










LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


12288 


15 


07342 


00001 


20130 




TDM 


SSI 


, 1 


12300 


15 


09599 


00001 


20140 




TDM 


SKIPSW 


, 1 


12312 


17 


04276 


42328 


20150 




BTM 


SRFCT 


, *+16 


12 328 




00005 


62399 


20160 




DSA 


SL 




12333 




00005 


63796 


20170 




DSA 


N40004 




12334 


17 


06898 


42350 


20180 




BTM 


PUTX 


,*+16 


12350 




00005 


69337 


20190 




DSA 


MM 




12355 




00005 


63796 


20200 




DSA 


N40004 




12360 




00005 


69455 


20210 




DSA 


MNS5 




12362 


15 


07343 


00001 


20220 




TDM 


SS2 


, 1 


12374 


26 


03781 


06843 


20230 




TF 


N40001 


, ADCOW 


12386 


11 


03781 


00048 


20240 




AM 


N40001 


, 18 


12398 


17 


06898 


42414 


20250 




BTM 


PUTX 


,*+16 


12414 




00005 


69382 


20260 




DSA 


SM 




12419 




00005 


69357 


20270 




DSA 


N13092 




12424 




00005 


63781 


20280 




DSA 


N40001 




12426 


16 


09485 


06003 


20290 




TFM 


I 


,3 


12438 


15 


07344 


00001 


20300 




TDM 


SS3 


, 1 


12450 


17 


05540 


1-2466 


20310 




BTM 


GTNS 


, * + 16 


12466 




00005 


69 48 5 


20320 




DSA 


I 




12471 




00005 


40881 


20330 




DSA 


SK 




12472 


17 


04276 


1-248 8 


20340 




BTM 


SRFCT 


, * + 16 


12488 




00005 


40881 


20350 




DSA 


SK 




12493 




00005 


63796 


20360 




DSA 


N40004 




12494 


15 


09599 


00000 


20370 




TDM 


SKIPSW 


,0 


12506 


44 


12564 


05085 


20380 




BNF 


C0DE9B 


,RMSW 


12518 


26 


12162 


06843 


20390 




TF 


CGCOW 


, ADCOW 


12530 


11 


12162 


0006 5 


20400 




AM 


CGCOW 


,5 


12542 


17 


11096 


42558 


20410 




BTM 


INSET 


,*+16 


12558 




00005 


40881 


20420 




DSA 


SK , CGCOW 




12563 




00005 


42162 












12564 


15 


07343 


00001 


20430 


CODE9B 


TDM 


SS2 


, 1 


12576 


17 


06898 


1-2592 


20440 




BTM 


PUTX 


,* + 16 


12592 




00005 


66848 


20450 




DSA 


B 




12597 




00005 


69357 


20460 




DSA 


N13092 




12602 




00005 


63796 


20470 




DSA 


N40004 




12604 


16 


09485 


06004 


20480 




TFM 


I 


,4 


12616 


17 


05540 


1-2632 


20490" 




BTM 


GTNS 


,* + 16 


12632 




00005 


69485 


20500 




DSA 


I 




12637 




00005 


62399 


20510 




DSA 


SL 




12638 


14 


02399 


06104 


20520 




CM 


SL, 104 


8 , RIGHT 


12650 


46 


02628 


01200 


20530 




BE 


CLEAR 




12662 


17 


05540 


42678 


20540 


C0DE9A 


BTM 


GTNS 


,*+16 


12678 




00005 


69485 


20550 




DSA 


I ,SL 




12683 




00005 


62399 












12684 


14 


02399 


06104 


20560 




CM 


SL 


, 104 


12696 


46 


12850 


01200 


20570 




BE 


N60072 




12708 


15 


09599 


00001 


20580 




TDM 


SKIPSW 


, 1 


12720 


17 


04276 


42736 


20590 




BTM 


SRFCT 


,*+16 


12736 




00005 


62399 


20600 




DSA 


SL,N40001 




12 741 




00005 


63781 












12 742 


15 


09599 


00000 


20610 




TDM 


SKIPSW 


,0 


12754 


44 


12812 


05085 


20620 




BNF 


C0DE9C 


,RMSW 


12766 


26 


12162 


06843 


20630 




TF 


CGCOW 


, ADCOW 


12778 


12 


12162 


00062 


20640 




SM 


CGCOW 


,2 


12790 


17 


11096 


1-2806 


20650 




BTM 


INSET 


,* + 16 


12806 




00005 


62399 


20660 




DSA 


SL, CGCOW 





NOVEMBER, 1966 



/29 



***** 




SECOND 


PASS FORTRAN 


II 










NOVEMBER, 1966 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


12811 




00005 


1-2162 














12812 


17 


08018 


1-2828 


20670 


C00E9C 


BTM 


PUTC 




,*+16 


12828 




00005 


63781 


20680 




OS A 


N40001 






12830 


11 


09485 


oooei 


20690 




AM 


I 




, 1 ,10 


12842 


49 


12662 


00000 


20700 




B 


C0DE9A 






12850 








20710 




DORG 


*-3 






12850 


17 


03842 


66843 


20720 


N60072 


BTM 


ADJUST 




, ADCOW 


12862 


49 


02628 


00000 


20730 




B 


CLEAR 






12870 








20740 




DORG 


*-3 














20750 


****** 


OUTPUTS FORMAT 


SPECIFICATIONS 


12874 




00005 


6948 5 


20760 


CD17P 


DSA 


I ,SX17 






12879 




00005 


43137 














12880 


17 


05510 


■12896 


20770 




BTM 


RMNS t* + 16 






12896 




00005 


69485 


20780 




DSA 


I ,SX17 






12901 




00005 


43137 














12902 


26 


14371 


06843 


20790 




TF 


RE P3 i AOCOW i i 




SAVE ADDRESS OF 1ST SPEC 


12914 


11 


06843 


0006-1 


20800 




AM 


ADCOW 




,1 ,,10 


12926 


17 


13936 


1-2938 


20810 


CD17A 


BTM 


CKXH,*+12 






12938 


17 


05510 


1-29 54 


20820 




BTM 


RMNS,*+16, , 




REMOVE A SYMBOL 


12954 




00005 


8-9485 


20830 




DSA 


I > SX1 7 






12959 




00005 


1-3137 














12960 


14 


13137 


06101 


20840 




CM 


SX17, 101. 


,8 


,IS IT AN OPERATOR 


12972 


46 


13400 


01300 


20850 




BNL 


CD17B, , , 




YES, BRANCH 


12984 


17 


05510 


43000 


20860 


XRMNS 


BTM 


RMNS ,* + 16 t t 




REMOVE NEXT SYMBOL 


13000 




00005 


69485 


2087O 




DSA 


I.SY17 






13005 




00005 


14243 














13006 


14 


14243 


06147 


20880 




CM 


SY17, 147 


,8 


,IS IT XTYPE 


13018 


46 


13138 


01200 


20890 




BE 


CD17C 






13030 


14 


14243 


0&148 


20900 




CM 


SY17, 148- 


,8 


,IS IT HTYPE 


13042 


46 


13198 


01200 


20910 




BE 


CD17D 






13054 


14 


14243 


06124 


20920 




CM 


SY17, 124 


,8 


,IS IT LEFT PAREN 


13066 


46 


13328 


01200 


20930 




BE 


CD17E 






13078 


26 


13233 


13137 


20940 




TF 


FRE01.SX17,, 




OTHER OPERATOR, SAVE FRED 


13090 


26 


13197 


06843 


20950 




TF 


RE P 1 , ADCOW i i 




SAVE ADDRESS OF NF XT SPEC 


13102 


11 


13197 


000&4 


20960 




AM 


REP1,4, 10 






13114 


26 


13137 


14243 


20970 




TF 


SX17,SY17 






13126 


49 


13400 


00000 


20980 




B 


CD17B 






13137 




00000 




20990 


SX17 


OS 








13138 


17 


14520 


64212 


21000 


CD17C 


BTM 


PUT17, XTYPE,, 




PUT XTYPE AND LENGTH 


13150 


13 


13137 


00062 


21010 




MM 


SX17 ,2 , 10 






13162 


32 


00097 


00000 


21020 




SF 


97 






13174 


27 


14556 


00099 


21030 




BT 


PUT17C ,99 






13186 


49 


12926 


00000 


21040 




B 


CD17A 






13197 




00000 




21050 


REP1 


DS 








13198 


17 


14520 


64207 


21060 


CD17D 


BTM 


PUT17 tHTYPE » i 




PUT HTYPE, LENGTH AND CONSTANTS 


13210 


13 


13137 


00062 


21070 




MM 


SX17 ,2 , 10 






13222 


32 


00097 


00600 


21080 




SF 


97 , ,9 






13233 




00000 




21090 


FRE01 


DS 


i * 






13234 


27 


14556 


00099 


21100 




BT 


PUT 1 7C ,99 






13246 


17 


05510 


13262 


21110 


C017F 


BTM 


RMNS ,*+16 






13262 




00005 


69485 


21120 




DSA 


I ,SY17 






13267 




00005 


14243 














13268 


27 


14604 


14243 


21130 




BT 


P0T1 7B, S Y17 






13280 


12 


13137 


oooei 


21140 




SM 


SX17, 1 , 10 












ooeoo 


21150 




CM 


SX17,0,9 






13304 


46 


13246 


01100 


21160 




BH 


C D 1 7 F 






13316 


49 


12926 


00000 


21170 




B 


CD17A 






***** 




SECOND 


PASS FORTRAN 


I I 










NOVEMBER, 1966 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


13327 




00000 




21180 


RFP2 


DS 








13328 


26 


14371 


06843 


21190 


CD17E 


TF 


REP3 , ADCOW , , 




SAVE FREQUENCY AODRFSS 


13340 


12 


14371 


00001 


21200 




SM 


RF P3 , 1 10 






13352 


26 


13327 


06843 


21210 






RE P2 , A DCO W 






13364 


11 


13327 


00004 


21220 




AM 


K tr r £ » , 1 u 






13376 


26 


1 3399 


13137 


21230 




j p 


FRE02 , SX 17 






] 3388 


49 


12926 


00600 


21240 




B 


CD17A , , 9 






13399 




00000 




21250 


FRE02 


DS 








13400 


14 


13137 


06104 


21260 


CD17B 


CM 


SX17, 104, 


rS , 


rRIGHT PAREN 


13412 


46 


14276 


01200 


21270 




BE 


CD17G 






13424 


14 


13137 


06145 


21280 




CM 


SX 17 , 145 i 


.8 , 


,E TYPE 


13436 


46 


14244 


01200 


21 29 




BE 


CD17H 






13448 


14 


13137 


06121 


21300 




CM 


SX17, 121, 


|8 . 


,SLASH 


13460 


46 


13636 


01200 


21310 




BE 


CD17I 






13472 


14 


13137 


06144 


21320 




CM 


SX17, 144, 


,8 , 


,A TYPE 


13484 


46 


13668 


01200 


21330 




BE 


CD17J 






13496 


14 


13137 


06149 


21340 




CM 


SX17, 149. 


18 , 


,1 TYPE 


13508 


46 


13830 


01200 


21350 




BE 


CD17K 






13520 


14 


13137 


06146 


21360 




CM 


SX17, 146, 


.8 , 


,F TYPE 


13532 


46 


13850 


01200 


21370 




BE 


CD17L 






13544 


14 


13137 


06132 


21380 




CM 


SX17, 132, 


r8, 


,SEMI COLON 


13556 


46 


14372 


01200 


21390 




BE 


CD17SC 






13568 


14 


13137 


00124 


21400 




CM 


SX17, 124, 


.8, 


.LEFT PAR FN 


13580 


47 


12926 


01200 


21410 




BME 


CD17A, , , 




CMA 


13592 


17 


13936 


13604 


21420 


CD17M 


BTM 


CKXH,*+12 






13604 


26 


14371 


06843 


21430 




TF 


REP3 , ADCOW , , 




SAVE REPEAT ADDRESS 


13616 


12 


14371 


00061 


21440 




SM 


REP3, 1, 10 






13628 


49 


12926 


00000 


21450 




B 


CD17A 






13636 








21460 




DORG 


*-3 






13636 


17 


1 3936 


i3648 


21470 


CD17 I 


BTM 


CKXH, *+12 






13648 


17 


14520 


&4177 


21480 




BTM 


PUT17, SLASH 






13660 


49 


12926 


00000 


21490 




B 


CD17A 






13668 








21500 




DORG 


*-3 






13668 


17 


13936 


1-3680 


21510 


C 01 7 J 


BTM 


CKXH,*+12 






13680 


17 


14520 


64172 


21 520 




BTM 


PUT17,ATYPE 






13692 


17 


05510 


13708 


21530 




BTM 


RMNS,*+16 






13708 




00005 


69485 


21540 




DSA 


I ,SX17 






13713 




00005 


1-3137 














13714 


13 


13137 


00002 


21550 




MM 


SX17.2, 10 






13726 


32 


00097 


00000 


21 560 




SF 


97 






13738 


27 


14556 


00099 


21570 




BT 


PUT17C99' 






13750 


14 


13233 


00600 


21580 


CD17N 


CM 


FRE01,0,9, 




PUT FREO RETURN ADDRESS 


13762 


46 


12926 


01200 


21590 




BE 


CD17A 






13774 


17 


14520 


64182 


21600 




BTM 


PUT1 7 , RE P 






13786 


27 


14468 


13197 


21610 


CD117 


BT 


PUT17I ,REP1 






13798 


27 


14604 


13233 


21620 




BT 


PUT17B,FREQ1 






13810 


16 


13233 


00600 


21630 




TFM 


FRE01,0,9 






13822 


49 


12926 


00000 


21640 




B 


CD17A 






13830 








21650 




DORG 


*_ 3 






13 830 


17 


14520 


64187 


21660 


CD17K 


BTM 


PUT17, ITYPE 






13842 


49 


13692 


00000 


21670 




B 


CD17J+24 






13850 








21680 




DORG 


*_ 3 






13850 


17 


14520 


64192 


21690 


C017L 


BTM 


PUT 1 7 , FT YPE 






13862 


17 


05510 


13878 


21700 




BTM 


RMNS,*+16 






13878 




00005 


69485 


21710 




DSA 


I ,SX17 






13883 




00005 


43137 














13884 


27 


14556 


13137 


21720 




BT 


PUT17CSX17 







***** 




SECOND 


PASS FORTRAN 


I I 








NOVEMBER, 1966 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


13896 


17 


05510 


1-3912 


21730 




BTM 


RMNS, *+16 




13912 




00005 


89485 


21740 




DSA 


I ,SX17 




13917 




00005 


1-3137 












13918 


49 


14198 


00000 


21750 




B 


WUB12B+24 




13934 




00005 




21760 




DC 


5t0 




13936 


17 


05540 


1-39 52 


21770 


CKXH 


BTM 


GTNS,*+16 




13952 




00005 


6948 5 


21780 




DSA 


I.SY17 




13967 




00005 


1-4243 












13958 


14 


14243 


001-47 


21790 




CM 


SY17, 147,9 




13970 


46 


12984 


01200 


21800 




BE 


XRMNS 




13982 


14 


14243 


00-148 


21810 




CM 


SY17 ,148,9 




13994 


46 


12984 


01200 


21820 




BE 


XRMNS 




14006 


49 


13935- 




21830 




B7 


CKXH-1, ,6 




14100 








21840 




DORG 


14100 




14101 




00002 




21850 




DC 


2,2 




14102 


16 


02359 


69212 


21860 


WUBCOS 


TFM 


FMON+35 


, BLK5 


141 14 


17 


02324 


1-4102 


21870 




BTM 


FMON 


, SUBCDS 


14126 


16 


02359 


69236 


21880 


WUBCAB 


TFM 


FMON+35 


, BLK6 


14138 


17 


02324 


14126 


21890 




BTM 


FMON 


,SUBCAB 


14150 


16 


02359 


©9260 


21900 


WUBC12 


TFM 


FMON+35 


, BLK7 


14162 


17 


02324 


1-4150 


21910 




BTM 


FMON 


, SUBC12 


14174 


16 


02359 


89284 


21920 


WUB12B 


TFM 


FMON+35 


, BLK8 


14186 


17 


02324 


14174 


21930 




BTM 


FMON 


, SUB12B 


14198 


17 


05510 


1-4214 


21940 




BTM 


RMNS,*+16 




14214 




00005 


69485 


21950 




DSA 


I.SX17 




14219 




00005 


13137 












14220 


27 


14604 


13137 


21960 




BT 


PUT17B ,SX 17 




14232 


49 


13750 


00000 


21970 




B 


CD17N 




14243 




00000 




21980 


SY17 


DS ■ 


, * 




14244 


17 


13936 


44256 


21990 


CD17H 


BTM 


CKXH,*+12 




14256 


17 


14520 


64197 


22000 




BTM 


PUT17,ETYPE 




14268 


49 


13862 


00000 


22010 




B 


CD17L+12 




14276 








22020 




DORG 


*-3 




14276 


17 


13936 


14288 


22030 


CD17G 


BTM 


CKXH,*+12 




14288 


14 


13399 


00600 


22040 




CM 


FRE02,0,9, 


PUT FREO RETURN ADDRESS 


14300 


46 


12926 


01200 


22050 




BE 


CD17A 




14312 


26 


13233 


13399 


22060 




TF 


FRE01 ,FRE02 




14324 


26 


13197 


13327 


22070 




TF 


REP1 ,REP2 




14336 


16 


13399 


00600 


22080 




TFM 


FRE02 ,0,9 




14348 


17 


14520 


640 22 


22090 




BTM 


PUT17, REP4 




14360 


49 


13786 


00000 


22100 




B 


CD117 




14371 




00000 




22110 


REP3 


DS 


, * 




14372 


45 


12926 


16004 


22120 


CD17SC 


BNR 


CD17A,BGNST+5 




14384 


17 


14520 


64202 


22130 




BTM 


PUT17,RED0 




14396 


27 


14468 


14371 


22140 




BT 


PUT17I ,REP3 




14408 


17 


03842 


66843 


22150 


CD17XX 


BTM 


ADJUST, AOCOW, 


, ADJUST ADCOW TO EVEN ADDRESS 


1442 


26 


03786 


09520 


22160 




TF 


N40002 ,SXF 




14432 


17 


08138 


44448 


22170 




BTM 


PUTA 


,*+16 


1444 8 




00005 


69520 


22180 




DSA 


SXF ,ADCOW 




14453 




00005 


66843 












144 54 


49 


02628 


00000 


22190 




B 


CLEAR 




14462 








22200 




DORG 


*-3 




14466 




00005 




22210 




DS 


5 




14468 


31 


08291 


08662 


22220 


P0T17I 


TR 


TYPET 


, TYPECR 




1 6 


08646 


4446 7 


222 30 










14492 


16 


06897 


14512 


22240 




TFM 


PUTX-1 


,* + 20 


14504 


49 


06982 




22250 




B7 


PUTXB 




***** 




SECOND 


PASS FORTRAN 


I I 








NOVFMBER, 1966 


LOCTN 


OP 


P/L 





PG/LiM 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


14512 


42 






22260 




BB2 






14518 




00005 




22270 




DS 


5 




14520 


31 


08291 


08677 


22280 


P0T17 


TR 


TYPFT 


, TYPECN 


14532 


26 


O8646 


14519 


22290 




TF 


PUT3 


, PUT17-1 


14544 


49 


14492 


00000 


22300 




B 


PUT17I+24 


14555 




00000 




22310 




DS 


, * 




14556 


31 


08291 


14662 


22320 


P0T17C 


TR 


TYPET 


, TYPEK3 


14568 


32 


14553 


00000 


22330 




SF 


PUT17C-3 




14580 


16 


08646 


1-4555 


22340 




TFM 


PUT3 


,PUT17C-1 


14592 


49 


14492 


00000 


22350 




B 


PUT17I+24 




14603 




00000 




22360 




DS 


, * 




14604 


31 


08291 


14647 


22370 


PUT17B 


TR 


TYPET 


, TYPE K2 


14616 


32 


14602 


00000 


22380 




SF 


PUT17B-2 




14628 


16 


08646 


1-4603 


22390 




TFM 


PUT3 


,PUT17B-1 


14640 


49 


14492 




22400 




B7 


PUT17I+24 




14647 




00001 




22410 


TYPEK2 


DSC 


1,2 




14649 




00002 




22420 




DC 


2,2 




14651 




00002 




22430 




DC 


2,5 




14653 




00002 




22440 




DC 


2,10 




14655 




00002 




22450 




DC 


2,11 




14660 




00005 




22460 




DC 


5,10000 




14661 




00001 




22470 




DC 


1,3 




14662 




00001 




22480 


TYPEK3 


DSC 


1,2 




14664 




00002 




22490 




DC 


2,3 




14666 




00002 




22500 




DC 


2,6 




14668 




00002 




22510 




DC 


2,11 




14670 




00002 




22520 




DC 


2,12 




14675 




00005 




22530 




DC 


5,10000 




14676 




00001 




22540 




DC 


1,3 












22550 




OUTPUT RETURN 












22552 


************************************************************ 


14678 


16 


08322 


60000 


22554 


XCTRT 


TFM 


-NFXT ,0 


, , , FORCE TRACE PRINT 


14690 


43 


14764 


05075 


22556 




BD 


N60182 


, SUBPSW 










22558 










14702 


15 


07343 


00001 


22560 


FCTRTP 


TDM 


SS2 


, 1 


14714 


17 


04276 


14730 


22570 




BTM 


SRFCT 


,* + 16 


14730 




00005 


69476 


22580 




DSA 


RTNAME 




14735 




00005 


63831 


22590 




DSA 


N40011 




14736 


17 


06898 


1-4752 


22600 




BTM 


PUTX 


,* + 16 


14752 




00005 


66846 


22610 




DSA 


BTM 




14757 




00005 


6422 7 


22620 




DSA 


TOFAC 




14762 




00005 


63831 


22630 




DSA 


N40011 




14764 


16 


07344 


00101 


22640 


N60182 


TFM 


SS3 


,101 ,9 


14776 


26 


03836 


09510 


22650 




TF 


N40012 


,RTAD 


14788 


12 


03836 


00061 


22660 




SM 


N40012 


,1 ,10 


14800 


17 


06898 


44816 


22670 




BTM 


PUTX 


,* + 16 


14816 




00005 


66848 


22680 




DSA 


B 




14821 




00005 


63836 


22690 




DSA 


N40012 




14826 




00006 


69344 


22700 




DSA 


BLANK 




14828 


49 


02628 


00000 


22710 




B 


CLEAR 




14836 








22720 




DORG 


*-3 




16002 








22730 




DORG 


16002 




16002 


34 


09148 


00701 


22740 


XZZX 


34 


BLK2A.701 




16014 


38 


09148 


00702 


22750 




38 


BLK2A.702 




16026 


36 


00012 


00 500 


22760 




TRA 






16038 


49 


00012 














16002 








22770 




TCD 


XZZX 





***** SECOND PASS FORTRAN II 



NOVEMBER, 1966 



PAGE 



LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




16049 




00005 


99331 


22780 




DSA 


CF 




10000 








22790 




DORG 


10000 












22800 


****** 


SECONDARY LINKAGE FOR BLOCK 3 


10001 




00002 




22810 




DC 


2 , 3 




10002 


16 


02359 


69116 


22820 


Y0DE1 


TFM 


FMON+35 ,8LK1 




10014 


17 


02324 


t0002 


22830 




BTM 


FMON ,C0DE1 




10026 


16 


02359 


09 116 


22840 


Y0DE3 


TFM 


FMON+35 , BLK1 




10038 


17 


02324 


1-0026 


22850 




BTM 


FMON ,C0DE3 




10050 


16 


02359 


89116 


22860 


Y00E4 


TFM 


FMON+35 , BLK 1 




10062 


17 


02324 


3r00 50 


22870 




BTM 


FMON ,C0DE4 




10074 


16 


02359 


99140 


22880 


Y0DE6 


TFM 


FMON+35 , BLK2 




10086 


17 


02324 


i-0 074 


22890 




BTM 


FMON ,'C0DE6 




10098 


16 


02359 


99140 


22900 


Y0DE7 


TFM 


FMON+35 ,BLK2 




10110 


17 


02324 


1-0098 


22910 




BTM 


FMON ,C0DE7 




10122 


16 


02359 


99116 


22920 


Y0DE8 


TFM 


FMON+35 , BLK1 




10134 


17 


02324 


1-0122 


22930 




BTM 


FMON ,C0DE8 




10146 


16 


02359 


99140 


22940 


Y0DE9 


TFM 


FMON + 35 t BLK2 




10158 


17 


02324 


tO 146 


22950 




BTM 


FMON ,C0DE9 




10170 


49 


14150 


00000 


22960 


Y0DE12 


B 


SUBC12 




10182 


48 


00000 


00000 


22970 




H 






10194 


15 


04007 


00001 


22980 


Y0DE14 


TDM 


FX , 1 




102 06 


49 


10434 


00000 


22990 




B 


CD14P 




10218 


16 


02359 


99116 


23000 


Y0DE15 


TFM 


FMON+35 ,BLK1 




10230 


17 


02324 


t0218 


23010 




BTM 


FMON ,C0DE15 




10242 


16 


02359 


99140 


23020 


Y0DE17 


TFM 


FMON+35 , BLK2 




10254 


17 


02324 


tO 2 42 


23030 




BTM 


FMON T C0DE17 




10266 


49 


14102 


00000 


23040 


YODESS 


g 


SUBCDS 




10278 


48 


00000 


00000 


23050 




H 






10290 


49 


14126 


00000 


23060 


YOSSAB 


B 


SIJ6CAB 




10302 


48 


00000 


00000 


23070 




H 






10314 


49 


14174 


00000 


23080 


YD12B 


B 


SUB12B 




10326 


48 


00000 


00000 


23090 




H 






10338 


16 


02359 


99188 


23100 


YCT1 


TFM 


FMON+35 , BLK4 




10350 


17 


02324 


t0338 


23110 




BTM 


FMON ,FCT1 




10362 


16 


02359 


99140 


23120 


YCTRT 


TFM 


FMON+35 , BLK2 




103 74 


17 


02324 


t0362 


23130 




BTM 


FMON , FCTRT 




10386 


16 


02359 


99188 


23140 


YOJ 


TFM 


FMON + 35 ,BLI<4 




10398 


17 


02324 


t0386 


23150 




BTM 


FMON ,EOJ 




10410 


14 


09505 


09131 


23160 


YDCALL 


CM 


LV ,131 


, 8 


10422 


49 


13212 


00000 


23170 




B 


CDCALP 












23180 




OUTPUT 10 STATEMENT 




10434 


15 


05065 


00000 


23190 


CD14P 


TDM 


FFRSW ,0 




10446 


17 


05510 


40462 


23200 




BTM 


RMNS ,*+16 




10462 




00005 


99485 


23210 




DSA 


I 




1046 7 




00005 


92372 


23220 




DSA 


SR 




10468 


17 


05540 


■10484 


23230 




BTM 


GTNS , *+16 




10484 




00005 


9948 5 


23240 




DSA 


I ,SL 




10489 




00005 


92399 












10490 


14 


09505 


09142 


23250 




CM 


LV ,142 


,8 


10502 


47 


10980 


01300 


23260 




BL 


CD14JG 




10514 


14 


09505 


09147 


23270 




CM 


LV ,147 


,8 


10526 


46 


1098 


01100 


23280 




BH 


CD14JG 








05 065 


00001 


2 3290 




TDM 


FFRSW , 1 




10550 


14 


09505 


09142 


23300 




CM 




, 8 


10562 


46 


10690 


01200 


23310 




BF 


CD14FV ' 




10574 


14 


09505 


09143 


23320 




C M 


LV 143 
















BF 


C D 1 4FL 




***** 




SECOND 


PASS FORTRAN 


I I 








NOVEMBER, 1966 PAGE 


LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




10598 


14 


09505 


09146 


2 3340 




CM 


LV ,146 


* 


10610 


46 


10900 


01200 


23350 




BF 


CD14RV 




10622 


14 


095 05 


06147 


23360 




CM 


LV ,147 




10634 


46 


10920 


01200 


23370 




BE 


CD14RL 




10646 


32 


05 06 5 


00000 


23380 




SF 


FFRSW 




10658 


14 


09505 


06144 


23390 




CM 


LV ,144 


, 8 


106 70 


46 


10940 


01200 


23400 




BE 


CD14SV 


10682 


49 


10960 


00000 


23410 




B 


CD14SL 




10690 








23420 




DORG 


*-3 




10690 


26 


13179 


13211 


23430 


CD14FV 


TF 


LVP , FETCH 




10702 


14 


02399 


09 10 1 


2 3440 




CM 


SL ,101 


' 


10714 


47 


11002 


01200 


23450 




BNE 


CD14JW 




10726 


17 


06898 


t0742 


23460 




BTM 


PUTX ,*+16 




10742 




00005 


99 3 70 


23470 




DSA 


BT,LVP,W13092 




10747 




00005 


t3179 












10752 




00005 


99357 












10754 


17 


05510 


t0770 


23480 




BTM 


RMNS ,*+16 




10770 




00005 


99485 


23490 




DSA 


I ,SL 




10775 




00005 


92399 












10776 


49 


11422 


00000 


23500 




B 


CD14A 




10784 








23510 




DORG 


*-3 




10784 


26 


13179 


13211 


23520 


CD14FL 


TF 


LVP .FETCH 




10796 


17 


04276 


-10812 


23530 




BTM 


SRFCT ,*+16 




10812 




00005 


62399 


23540 




DSA 


SL , N40004 




10817 




00005 


63796 












10818 


15 


07343 


00001 


23550 




TDM 


SS2 , 1 




10830 


17 


06898 


t0846 


23560 




BTM 


PUTX ,*+16 




10846 




00005 


66846 


23570 




DSA 


BTM,T0FAC,N40004 




10851 




00005 


9422 7 












10856 




00005 


93796 












10858 


17 


05570 


tO 8 74 


23580 




BTM 


RPNS ,*+16 




10874 




00005 


69485 


23590 




DSA 


I , FAC 




10879 




00005 


99469 












10880 


17 


05830 


t0892 


23600 




BTM 


GNRP ,*+12 




10892 


49 


10702 




23610 




B7 


CD14FV+12 




10900 


26 


13179 


13206 


23620 


CD14RV 


TF 


LVP , RECORD 




10912 


49 


10702 




23630 




B7 


CD14FV+12 




10920 


26 


13179 


13206 


23640 


CD14RL 


TF 


LVP , RECORD 




10932 


49 


10796 




23650 




B7 


CD14FL+12 




10940 


26 


13179 


13201 


23660 


CD14SV 


TF 


LVP . , F IND 




10952 


49 


10702 




23670 




B7 


CD14FV+12 




10960 


26 


13179 


13201 


23680 


CD14SL 


TF 


LVP , F I ND 




10972 


49 


10796 




23690 




B7 


CD14FL + 12 




10980 


17 


03888 


40996 


23700 


CD14JG 


BTM 


OPSR ,*+16 




10996 




00005 


99 505 


23710 




DSA 


LV,LVP 




11001 




00005 


■13179 












11002 


17 


05510 


41018 


23720 


CD14JW 


BTM 


RMNS ,*+16 




11018 




00005 


99485 


23730 




DSA 


I 




11023 




00005 


92399 


23740 




DSA 


SL 












23745 


******* 








1 1 024 


43 


1 1044 


02290 


23746 




BD 


*+20,UFSTR+27 ,, .BRANCH IF DIAGNOSTIC MODE 


11036 


49 


11056 




23747 




B7 


* + 20 




11044 


16 


0832? 


90000 


23748 




TFM 


-NFXT.O ,,, FORCE TRACE OUTPUT 


11056 


14 


02399 


09998 


23751 




CM 


SL.9998,8 ,, 


..CHECK FOR VARIABLE OR FREE FORMAT 


11068 


47 


11232 


01300 


23752 




BL 


CD99NF 


,,, NO-BRANCH 


11080 


46 


11156 


01200 


23752 




BE 


VARFR ,, 


,, BRANCH IF VARIABLF FORMAT 


11092 


15 


07343 


00001 


23752 




TDM 


SS2 , 1 


,,, INDICATE ADDRESS RELOCATABLE 







SECOND 


PASS FORTRAN 


1 1 






NOVEMBERt 1966 PAGE 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11104 


1 7 


06898 


41120 


23753 




BTM 


PUTX,*+16 ,», OUTPUT FREF FORMAT LINKAGE 






00005 




23754 




DS A 


BTM,N02393,ADC0W 


11 lot 
1 l l Vr\ 




00005 


•11155 










11130 




00005 


■66843 










11132 


16 


03796 


00060 


2 3755 




T FM 


N40004,0»10 , ,, 




49 




62393 








C Dl 4NR t 02 393 t 7 1 1 ,,, ONWARD 


1 1 1 sc 




00000 




D37K7 


N02393 


DS 










1-1188 


737KQ 
^™ 


VARFR 




MATRET+6 f VRFRBK ,,,SET UP RETURN 


111 AH 


1 A 


04?57 


62 388 






TEM 


MAT,— 2388 ,,,S0 I CHEAT A LITTLF 


11180 


49 


1 1422 




2375A 




87 


CD14A , ,,G0 TO OUTPUT VARIABLE FORMAT LINKAGE 


11188 


16 


13154 


■11422 


2375B 


VRFRBK 


T FM 


MAT RET+6 f CD 14A ••(RESTORE RETURN ADDRFSS 


1 1 


1 6 


0425 7 


an a 


p^75n 






MAT AKlft . -DP^TflDE MATOIV CMTDV 














TCM 


N40004,434 ,,,SET UP FORMAT ADDRFSS 


11224 


49 


11314 




2375E 




B7 


CD14RM-20 » 1 t ONWARD 










23760 


# 




OUTPUT INSTRUCTION FOR 10 DEVICE 


11232 


15 


07343 


00001 


23769 


CD99NF 


TDM 


SS2, 1 


11244 


17 


04276 


11 260 


23770 




BTM 


SRFCT,*+16 










23775 








11260 




00005 


62399 


23780 




DSA 


SL 


1 1 265 




00005 


63796 


23790 




DSA 


N40004 


1 1 266 


43 


1 1 394 


05065 


23800 




BD 


CD14NR+12 ,FFRSW 


\ } ? ^ " 


43 




05085 


238 10 




BD 


CD14RM ,RMSW 


112 90 


1 1 


1 1 Xa 7 


0006 5 


23820 




AM 


SBASE ,5 , 10 




t/k 












CD14NR tSBASE ill 


1 1 3 14 




OAAQl 


nnn.37 
000-2 / 






TFM 


OPX 1 27 ,10 


11326 


AQ 


n^7H 1 




238 50 




B7 


CD14NR+12 




3A 


n^7ai 




o* 8 -7n 


CD14RM 


]" F 


N40001 ,ADCOW 


l l lit 
i i it. 


11 


nf A7 


0004 1 


23870 




AM 


N40001 ,11 ,10 


l i Wn 






0378 1 


23880 




T F 


SBASE ,N40001 (6 




IK 




00000 






IP M 


RMSW , 




1 A 








C 01 4NR 


TFM 


OPX t 17 , 10 


1 1 5Qi 


17 


OAHQS 




23910 




nl a 


PUTX ,* + 16 


l l u l n 




00005 




2 39 20 






0PX,LVP,N40004 


1 4. 1 5 

1 1 2?n 




n n n n t% 

UUUU7 


















f»7 7QA 










11 


15 




00000 


23930 




T 

TDM 


101 1 






11 


05065 


2 3940 




BNF 


# + 20 ,FFRSW 


1 1 AAA 

11446 


AO 
49 


02628 




239 50 




B7 


CLEAR 


1 1454 


1 7 


05510 


-1 1470 


23960 




BTM 


RMNS ,#+16 


1 1470 




00005 


6948 5 


23970 




DSA 


I 


1 1475 




00005 


62399 


23980 




DSA 


SL 


1 1476 


14 


02 399 


06132 


23990 




CM 


SL, 132,8,SEMI COLON 


1 1488 


46 


1 2766 


01200 


24000 




BE 


CD14EN 


115 00 


1 7 


05540 


11516 


24010 




BTM 


GTNS ,# + 16 


11516 




00005 


69485 


24020 




DSA 


I 


11521 




00005 


62399 


24030 




DSA 


SL 


} \ 




??A?a 




24040 




CM 


SL , 109,8, DOA 




AA 






240 50 




B E 


CODOA 


1 1 546 


14 


02399 


06124 








SL, 124, 8, LEFT PAREN 


11558 


46 


1 2 1 00 


1 200 


24070 




BE 


C 00 F P A 


115 70 


1 7 


04276 


11 586 






BTM 


SRFCT ,*+16 


115 86 




00005 


62399 


24090 




DSA 


SL 


11591 




00005 


62372 


24100 




DSA 


SR 


11592 


43 


11882 


04450 


24110 




BD 


CODARR ,DMSW 










24120 




OUTPUT SIMPLE VARIABLE 


11604 


43 


11624 


04673 


24130 




BD 


* + 20 , FXORF L 


.11616 


49 


11696 


00000 


24140 




B 


CD99 


***** 




SECOND 


PASS FORTRAN 


1 1 






NOVEMBFR, 1966 PAGE 


LOCTN 


P 


P/L 


(■) 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


11624 








241 50 




DORG 


*-3 


1 1 624 


44 


1 1684 


09597 


241 60 




BNF 


CD98 ,FPSW 


11636 


15 


07342 


0000 1 


24170 




TDM 


SSI ,1 


11648 


17 


06898 


11664 


24180 




BTM 


PUT X ,*+16 


11664 




00005 


69329 


24190 




DSA 


SF 


11669 




00005 


62372 


24200 




DSA 


SR 


1 1 674 




00005 


69344 


24210 




DSA 


BLANK 


1 1 6 76 


49 


11696 


00000 


24220 




B 


# + 20 


1 1684 








242 30 




DORG 


*-3 


1 1 6 84 


1 5 


07 345 


0000 1 


24240 


CD98 


TDM 


SS4 , 1 




I? 


?if 7^ 3 




242 50 


CD99 


TDM 


SS2 , 1 


l i 7ns 




n^7QA 


5065 


9/^7? 




BD 


CD97 ,FFRSW 


1 1 75 n 


?A 




04237 


it 




TF 


N40004 ,10 


1 1 77? 


aq 


1 1 7R7 








B7 


CD96 


1 1 74 n 




0379A 




?A?Qn 




TF 


N40004 ,SWF 




17 


06898 


1 1 7AH 


24300 


rna 


BTM 


PUTX ,*+16 


1 71 o 
1177^ 




00005 


«^7QA 


24310 




DSA 


OPX 






00005 








DSA 


N40004 


1 1 77Q 




r\ riling 

UUUU3 




24330 




DSA 


SR 


11780 


43 


1 1800 


046 73 


24340 




BD 


# + 20 , FXORFL 


11792 


49 


11852 


00000 


24350 




B 


CD14C 


11800 








24360 




DORG 


*-3 


1 1 800 


44 


11852 


09597 


24370 




BNF 


CD14C ,FPSW 


11812 


1 5 


07342 


00001 


24380 




TDM 


SSI , 1 


11824 


1 7 


06898 


11840 


24390 




BTM 


PUTX ,# + 16 


1 1 840 




00005 


69 331 


24400 




DSA 


CF 


1 1 845 




00005 


62372 


24410 




DSA 


SR 


11850 




00005 


69344 


24420 




DSA 


BLANK 








1-1868 


24430 


C Dl 4C 


BTM 


RMNS ,*+16 






00005 




24440 




DSA 


I 


1 l 072 




UUUU7 


62399 


24450 




DSA 


SL 


1 1 07I 


49 


114 22 


00000 


24460 




B 


CD14A 


11882 








?aa!h 




DORG 


*-3 










244«u 


**** * 




OUTPUT DIMENSION VARIABLES IN 10 STATEMENTS 












C0DARR 


TF 


N40004 , I 


1 1 HQ4 
1 qL 


11 

r ^ 


03796 


nnnm 






AM 


N40004 ,1 ,10 






05540 


" " 


9/ Kin 
24510 




BTM 


GTNS ,*+16 






00005 




24520 




DSA 


N40004 


1 1 077 




00005 








OSA 


LV 


1 1 Q?« 








24540 




CM 


LV ,148 ,8 


11940 


47 


12858 


m ann 






BL 


CODMAT 


11952 


1 1 


09485 


0006 1 


24560 




AM 


I ,1 ,10 










f z, s 




TDM 


101 ,1 ,11 


I 1 o7A 

I I y ib 


1 A 

14 


r>Q5n5 


noi ao 
06 148 


24580 




CM 


LV ,148 ,8 


1 1 988 


46 


10 290 


01200 


24590 




BE 


CDSSAB 


12000 


49 


10266 




24600 




B7 


CODESS 


12008 


1 5 


09315 


00000 


24610 


CD14B 


TDM 


mi ,0 


1202 


43 


12052 


05065 


24620 




BD 


CD95 ,FFRSW 


12032 


26 


03796 


04237 


24630 




TF 


N40004 ,10 


12044 


49 


12064 




24640 




B7 


CD94 


12052 


26 


03796 


13186 


24650 


CD95 


TF 


N40004 ,SWF 




17 








CD94 


BTM 


PUTX ,# + 16 


12080 




00005 


69370 


24670 




DSA 


BT 


12085 




00005 


63796 


24680 




DSA 


N40004 


12090 




00005 


69357 


24690 




DSA 


N13092 


12092 


49 


11422 


00000 


24700 




B 


CD14A 


12100 








24710 




DORG 


*-3 



/36 



***** 




SECOND 


PASS FORTRAN 


I I 


LOCTN 


OP 


P/L 





PG/LN 


12100 


16 


12341 


00001 


24720 


12112 


11 


09485 


00061 


24730 


12124 


17 


05540 


1-2140 


24740 


12140 




00005 


69485 


24750 


12145 




00005 


62399 




12146 


14 


02399 


06104 


24760 


12158 


46 


12274 


01200 


24770 


12170 


14 


02399 


00448 


24780 


12182 


47 


12294 


01300 


24790 


12194 


14 


02399 


001-51 


24800 


12206 


46 


12294 


01100 


24810 


12218 


12 


02399 


00446 


24820 


12230 


13 


02399 


00063 


24830 


12242 


32 


00096 


00000 


24840 


12254 


21 


09485 


00099 


24850 


12266 


49 


12124 




24860 


122 74 


12 


12341 


00061 


24870 


12286 


49 


12112 


00000 


24880 


12294 








24890 


12294 


14 


02399 


06124 


249 00 


12306 


47 


12342 


01200 


24910 


12318 


11 


12341 


oooei 


24920 


12330 


49 


12112 


00000 


24930 


12341 




00002 




24940 


12342 


14 


02399 


06133 


24950 


12354 


47 


12112 


01200 


24960 


12366 


14 


12341 


00061 


24970 


12378 


46 


12112 


01 100 


24980 


12390 


11 


09378 


00061 


24990 


12402 


26 


09534 


09378 


2 5000 


12414 


12 


09485 


00063 


25010 


12426 


15 


09315 


00001 


25020 


12438 


49 


10170 




2 5030 


12446 


15 


09315 


00000 


2 5040 


12458 


11 


09485 


00062 


25050 


12470 


17 


05510 


42486 


25060 


12486 




00005 


69485 


2 5070 


12491 




00005 


62399 




12492 


17 


05510 


42508 


25080 


12508 




00005 


69485 


25090 


12513 




00005 


62399 




12514 


17 


05570 


42530 


25100 


12530 




00005 


69485 


25110 


12535 




00005 


69453 




12536 


11 


09485 


00061 


25120 


12 548 


17 


05510 


42564 


25130 


12564 




00005 


69485 


25140 


12569 




00005 


62399 




12570 


17 


05510 


42586 


25150 


12586 




00005 


69485 


25160 


12591 




00005 


62399 




12592 


17 


05540 


42608 


25170 


12608 




00005 


09485 


25180 


12613 




00005 


62399 








02399 


06 104 


25190 


12626 


47 


12570 


01200 


25200 


12638 


16 


09485 


06001 


25210 


***** 




SECOND 


PASS FORTRAN 


I I 


LOCTN 


OP 


P/L 





PG/LN 


12650 


49 


11422 


00000 


25220 


12658 








25230 


12658 


15 


09315 


00001 


25240 


12670 


26 


09534 


09378 


25250 


12682 


49 


10314 




25260 


12690 


12 


09378 


00061 


25270 


12 702 


15 


09315 


00000 


25280 


12714 


17 


05510 


Jr2730 


25290 


12730 




00005 


69485 


25300 


12735 




00005 


62399 


25310 


12736 


17 


055 10 


1-2752 


25320 


12752 




00005 


69485 


25330 


12757 




00005 


62399 


25340 


12758 


49 


11422 


00000 


25350 


12766 








25360 


12766 


43 


12826 


506 5 


25370 


12778 


26 


03796 


04242 


25380 


12790 


17 


06898 


12806 


25390 


12806 




00005 


66846 


25400 


12811 




00005 


63796 


25410 


12816 




00005 


69341 


25420 


12818 


49 


02628 


00000 


25430 


12826 








25440 


12826 


26 


03796 


13191 


25450 


12838 


15 


05065 


00000 


25460 


12850 


49 


12790 




25470 










25480 


12858 


17 


06898 


*2874 


25490 


12874 




00005 


69327 


25500 


12879 




00005 


642 52 


25510 


12884 




00005 


69589 


25520 


12886 


43 


12906 


04673 


25530 


12898 


49 


12990 


00000 


25540 


12906 








25550 


12906 


44 


12966 


09597 


25560 


12918 


15 


07342 


00001 


25570 


12930 


17 


06898 


42946 


25580 


12946 




00005 


39329 


25590 


12951 




00005 


62372 


25600 


12956 




00005 


69344 


25610 


12958 


49 


12978 


00000 


25620 


12966 








25630 


12966 


15 


07345 


00001 


25640 


12978 


43 


13002 


04451 


25650 


12990 


15 


07343 


00001 


25660 


13002 


43 


13156 


05065 


25670 


13014 


26 


03796 


042 57 


25680 


13026 


17 


06898 


1-3042 


25690 


13042 




00005 


64493 


25700 


13047 




00005 


63796 


25710 


13052 




00005 


62372 


25720 


13054 


43 


13074 


04673 


25730 


13066 


49 


13126 


00000 


25740 


13074 








25750 


13074 


44 


13126 


09597 


25760 


13086 


15 


07342 


00001 


25770 


13098 


17 


06898 


43114 


25780 



NOVEMBER, 1966 PAGF 47 

LABEL MNEM OPERANDS AND REMARKS 



CODEPA 


TFM 


PARCNT, 1, 10 


CD14NA 


AM 


1,1,10 




BTM 


GTNS,*+16 




DSA 


I,SL 




CM 


SL,104,8 




BE 


CD14NB 




CM 


SL,148,9 




BL 


CD14NB+20 




CM 


SL,151,9 




BH 


CD14NB+20 




SM 


SL,146,9 




MM 


SL,3,10 




SF 


96 




A 


I i 99 




B7 


CD14NA+12 


CD14NB 


SM 


PARCNT, 1, 10 




B 


CD14NA 




DORG 


*-3 




CM 


SL, 124,8 




BNE 


* + 36 




AM 


PARCNT, 1, 10 




B 


CD14NA 


PARCNT 


DS 


2,* 




CM 


SL,133,8 




BNE 


CD14NA 




CM 


PARCNT ,1,10 




BH 


CD14NA 




AM 


GLNO , 1 , 10 




TF 


T2 , GLNO 




SM 


1,3,10 










B7 


C0DE12 


CD14E 


TDM 


101 ,0 




AM 


1,2,10 




BTM 


RMNS ,*+16 




DSA 


I , SL 




BTM 


RMNS ,*+16 




DSA 


I ,SL 




BTM 


RPNS ,#+16 




DSA 


I , DOA 










BTM 


RMNS , *+ 16 




DSA 


I ,SL 


CD14NC 


BTM 


RMNS , *+ 16 




DSA 


I ,SL 




BTM 


GTNS,*+16 




DSA 


I ,SL 




CM 


SL,104,8 




BNE 


CD14NC 




TFM 


1,1,8 



NUVFHBFR, 1966 



LABEL 


MNEM 


OPERANDS AND 


REMARKS 




B 


CD14A 






DORG 


*-3 




CODOA 


TDM 


101 


, 1 




TF 


T2 


, GLNO 




B7 


C012B 




CD14M 


SM 


GLNO 


, 1 




TDM 


101 


,0 




BTM 


RMNS 


, #+16 




DSA 


I 






DSA 


SL 






BTM 


RMNS 


, # + 16 




DSA 


I 






DSA 


SL 






B 


CD14A 






DORG 


*-3 




CD14EN 


BD 


CD14ND 


, FFRSW 




TF 


N40004 


, IOEND 




BTM 


PUTX 


,# + 16 




DSA 


BTM 






DSA 


N40004 






DSA 


ZERO 






B 


CLEAR 






DORG 


*-3 




CD14ND 


TF 


N40004 


(DIOEMD 




TDM 


FFRSW 


,0 




B7 


CD14EN+24 






OUTPUT CODING 


FOR COMPL 


CODMAT 


BTM 


PUTX 


,# + 16 




DSA 


TFM 






DSA 


PAR 






DSA 


PI 






BD 


# + 20 


, F XORFL 




B 


CM99 






DORG 


#-3 






BNF 


CM9S 


,FPSW 




TDM 


SSI 


, 1 




BTM 


PUT X 


,# + 16 




DSA 


SF 






DSA 


SR 






DSA 


BLANK 






B 


# + 20 






DORG 


*-3 




CM98 


TDM 


SS4 


, 1 




BD 


#+24, COMSW 


CM99 


TDM 


SS2 


, 1 




BD 


CM96 


, FFRSW 




TF 


N40004 


, MAT 




BTM 


PUTX 


,#+16 




DSA 


OPX 






DSA 


N40004 






DSA 


SR 






BD 


#+20 


.FXORFL 




B 


CM97 






DORG 


#-3 






BNF 


CM97 


,FPSW 




TDM 


SSI 


, 1 




BTM 


PUTX 


,* + 16 



/39 



***** 




SECOND 


PASS FORTRAN 


1 1 








LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13114 




00005 


69331 


25790 




DSA 


CF 


13119 




00005 


62372 


25800 




DSA 


SR 


13124 




00005 


69344 


25810 




DSA 


BLANK 


13126 


17 


055 10 


43142 


25820 


CM97 


BTM 


RMNS ,*+16 


13142 




00005 


69485 


25830 




DSA 


I 


13147 




00005 


62399 


25840 




DSA 


SL 










25845 


***********#******************************* 


13148 


49 


11422 




25850 


MATRET 


B7 


CD14A 










25855 








13156 


26 


03796 


13196 


25870 


CM96 


TF 


N40004 ,DRAY 


13168 


49 


13026 




25880 




B7 


CM99+36 


13179 




00005 




25890 


LVP 


DS 


5 


13181 




00002 




25900 


OPY 


DS 


2 


13186 




00005 




25910 


SWF 


DC 


5,-02288 


13191 




00005 




25920 


OIOEND 


DC 


5,-02298 


13196 




00005 




25930 


DRAY 


DC 


5,-02293 


13201 




00005 




25940 


F INO 


DC 


5,-02273 


13206 




00005 




25950 


RECORD 


DC 


5,-02278 


13211 




00005 




25960 


FETCH 


DC 


5,-02283 










25970 


****** 


CALL EXIT AND CALL LINK ROUTINES 


13212 


46 


13786 


01200 


25980 


CDCALP 


BE 


CDXIT 


13224 


11 


09485 


00093 


25990 


CDL INK 


AM 


I ,3 ,10 


13236 


17 


05510 


1-3252 


26000 




BTM 


RMNS ,*+16 


13252 




00005 


89485 


26010 




DSA 


I ,SY 


13257 




00005 


62384 










13258 


26 


13777 


02384 


26020 




TF 


NAME-8 ,SY 


132 70 


17 


05510 


43286 


26030 




BTM 


RMNS ,*+16 


13286 




00005 


69485 


26040 




DSA 


I ,SY 


13291 




00005 


62384 










13292 


26 


13781 


02384 


26050 




TF 


NAME-4 ,SY 


13304 


33 


13778 


00000 


26060 




C F 


NAME— 7 


13316 


17 


05510 


■13332 


26070 




BTM 


RMNS ,*+16 


13332 




00005 


69485 


26080 




DSA 


I ,SY 


13337 




00005 


62384 










13338 


26 


13785 


02384 


26090 






NAME i SY 


13350 


33 


13782 


00000 


26100 




CF 


NAME-3 


13361 




00000 




26110 


CDLGT 


DS 




13362 


26 


13361 


06843 


26120 




TF 


CDLGT ,ADCOW 


13374. 


15 


07343 


00001 


26130 




TDM 


SS2 , 1 


13386 


11 


13361 


00050 


26140 




AM 


CDLGT ,50 ,10 


13398 


17 


06898 


1-3414 


26150 




BTM 


POTX ,*+16 


13414 




00005 


S-9327 


26160 




DSA 


TFM, N 07 495, CDLGT 


13419 




00005 


1-3751 










13424 




00005 


43361 










13426 


26 


13361 


06843 


26170 




TF 


CDLGT ,ADCOW 


13438 


15 


07343 


00001 


26180 




TDM 


SS2 ,1 


13450 


1 1 


13361 


00049 


26190 




AM 


CDLGT ,19 ,10 


13462 


17 


06898 


J-3478 


26200 




BTM 


PUTX ,*+16 


13478 




00005 


69327 


26210 




DSA 


TFM ,N 005 65 , CDLGT 


134B3 




00005 


1-3756 










13488 




00005 


1-3361 










13490 


17 


06898 


43506 


26220 




BTM 


PUTX ,*+16 


13506 




00005 


96848 


26230 




DSA 


B ,N00716,N2TH0 


13511 




00005 


43761 














00005 












13518 


12 


06843 


000&4 


26240 




SM 


ADCOW ,4 , 10 


13530 


27 


13590 


13768 


26250 




BT 


PUT X2 ,NM22 


***** 




SECOND 


PASS FORTRAN 


I I 








LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


13542 


27 


13642 


13773 


26260 




BT 


P0TX17 ,N147RM 


13554 


27 


13686 


13785 


26270 




BT 


PUTX12 ,NAMF 


13566 


11 


06843 


00061 


26280 




AM 


ADC OW ,1 ,10 


13578 


49 


02628 


00000 


2 6290 






CLEAR 


13589 




00000 




26300 




DS 




13590 


31 


08291 


13717 


26310 


PIITX2 


TR 


TYPET , TYPEM2 


13602 


16 


08646 


43589 


26320 




TFM 


PUT3 ,PUTX2-1 


13614 


16 


06897 


43634 


26330 




TFM 


PUTX-1 ,*+20 


13626 


49 


06982 




26340 




B7 


PUTXB 


13634 


42 






26350 




BB2 




13640 




00005 




26360 




DS 


5 


13642 


31 


08291 


08677 


26370 


PUTX17 


TR 


TYPET , TYPECN 


13654 


16 


08646 


43641 


26380 




TFM 


PUT3 , PUTX17-1 


13666 


49 


13614 


00000 


26390 




B 


PUTX2+24 


13684 




00007 




26400 




DS 


7 


13686 


31 


08291 


13732 


26410 


PUTX12 


TR 


TYPET ,TYPE12 


13698 


16 


08646 


43685 


26420 




TFM 


PUT3 ,PUTX12-1 


13710 


49 


13614 




26430 




B7 


PUTX2+24 


13717 




00001 




26440 


TYPEM2 


DSC 


1,2 


13719 




00002 




26450 




DC 


2,2 


13721 




00002 




26460 




DC 


2,5 


13723 




00002 




26470 




DC 


2 , 10 


13725 




00002 




26480 




DC 


2,11 


13730 




00005 




26490 




DC 


5,10000 


13731 




00001 




26500 




DC 


1,5) 


13732 




00001 




26510 


TYPE12 


DSC 


1,2 


13734 




00002 




26520 




DC 


2,12 


13736 




00002 




26530 




DC 


2,15 


13738 




00002 




26540 




DC 


2,20 


13740 




00002 




26550 




DC 


2,21 


13 745 




00005 




26560 




DC 


5,10000 


13746 




00001 




26570 




DC 


i, a 


13751 




00005 




26580 


MO 74 9 5 


DC 


5,7495 


13756 




00005 


60565 


26590 


N00565 


DSA 


IORT 


13761 




00005 


60716 


26600 


M00716 


DSA 


IOCAL 


13 766 




00005 




26610 


N2TH0 


DC 


5,20000 


13768 




0000 2 




26620 


NM22 


DC 


2,20 


13773 




00005 




26630 


N147RM 


DC 


5,1473 


13785 




00012 




26640 


NAME 


DS 


12 


13786 


17 


068 98 


43802 


26650 


CDXIT 


BTM 


PUTX ,*+16 


13802 




00005 


66848 


26660 




DSA 


B ,N00796 , BLANK 


13807 




00005 


69606 










13812 




00005 


69344 










13814 


12 


06843 


00064 


26670 




SM 


ADCOW ,4 ,10 


13826 


49 


02628 




26680 




B7 


CLEAR 


16002 








26690 




DORG 


16002 


16002 


34 


09172 


00 701 


26700 


XWWX 


34 


BLK3A,701 


16014 


38 


09172 


00702 


26710 




38 


BLK3A,702 


16026 


36 


00012 


00500 


26720 




TRA 




16038 


49 


00012 












16002 








26730 




TCD 


XWWX 


10000 








26740 




DORG 


10000 










26750 


****** 


SECONDARY LINKAGE FOR BLOCK 4 


10001 




00002 




26760 




DC 


2,4 


10002 


16 


02359 


69116 


26770 


Z0DE1 


TFM 


FMON+35 , BL K 1 


10014 


17 


02324 


40002 


26780 




BTM 


FMON ,C0DE1 


10026 


16 


02359 


69116 


26790 


Z0DF3 


TFM 


FMON+35 , BLK 1 



NOVEMBER, 1966 



*************************** 



NOVEMBER, 1966 



$$$$$ 



SECOND PASS FORTRAN II 



NOVEMBER, 1966 PAGE 51 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 






10038 


17 


02324 


40026 


26800 




BTM 


FMON 








10050 


16 


02359 


69116 


26810 


Z0DE4 


TFM 


FM ON +3 5 


ni i/ i 

: 






10062 


17 


02324 


40050 


26820 




BTM 


FMON 


,C0DE4 






10074 


16 


02359 


69140 


26830 


Z0DE6 


TFM 


FMON+35 


» BLK2 






10086 


17 


02324 


40074 


26840 




BTM 


FMON 


,C0DE6 






10098 


16 


02359 


69140 


26850 


Z0DE7 


TFM 


FMON+3 5 


, BL K2 






10110 


17 


02324 


40098 


26860 




BTM 




'rPk 1 ^ 






10122 


16 


02359 


69116 


26870 


Z0DE8 


TFM 


FMON+3 5 








10134 


17 


02324 


40122 


26880 




BTM 


FM ON 


rrinFR 






10146 


16 


02359 


69140 


26890 


Z0DE9 


TFM 


FMON +3 5 








10158 


17 


02324 


40146 


26900 




BTM 




'cf)DE9 






10170 


16 


02359 


69116 


26910 


Z0DE12 


TFM 


FMON+3 5 


r BLK 1 






10182 


17 


02324 


40170 


26920 




BTM 


FMON 


,CODE 12 






101 94 


16 


02359 


69 164 


26930 


Z0DE14 


TFM 


FMON +3 5 


, BL K3 






10206 


17 


02324 


40194 


26940 




BTM 


FMON 


• CODE 14 






102 18 


16 


02359 


69116 


26950 


Z0DE15 


TFM 


FMON+35 


, BL K 1 






10230 


17 


02324 


40218 


26960 




BTM 


FMON 


iCODE 15 






10242 


16 


02359 


69140 


26970 


ZO0E17 


TFM 


FMON+3 5 


, BL K2 






10254 


17 


02324 


40242 


26980 




BTM 


FMON 


jCODE 17 






10266 


16 


02359 


69116 


26990 


ZODESS 


TFM 


FMON+35 


» BL K 1 






10278 


17 


02324 


40266 


27000 




BTM 


FMON 








10290 


16 


02359 


69116 


27010 


ZDSSAB 


TFM 


r n I J |\' + d D 


T 






10302 


17 


02324 


40290 


27020 




BTM 




,CDSSAB 






10314 


16 


02359 


69116 


27030 


ZD12B 


TFM 


FMON +3 5 


» BL K 1 






10326 


17 


02324 


40314 


27040 




BTM 


FMON 


,CD 12B 






10338 


17 


05510 


40438 


27050 


ZCT1 


BTM 


RMNS 


tFCTIP 






10350 


48 


00000 


00000 


27060 




H 










10362 


16 


02359 


99140 


27070 


7.CTRT 


TFM 


FMON+35 


> BLK2 






103 74 


17 


02324 


40362 


27080 




BTM 


FMON 


, FCTRT 






10386 


41 


00000 


00000 


27090 


ZOJ 


NOP 










10398 


49 


12008 


00000 


27100 




B 


FOJP 








10410 


16 


02359 


69164 


27110 


ZDCALL 


TFM 


CM f"lM 4. 3 R 
rH UIN + J 


BLK3 






1042 2 


17 


02324 


40410 


27120 




BTM 


FM ON 


, C C A L L 






10438 




00005 


69485 


27130 


FCT1P 


DSA 










10443 




00005 


69505 
















10444 


17 


055 10 


JrO 46 


27140 




BTM 


RMNS 


* + 1 5 






10460 




00005 


69485 


271 50 




OSA 


I i SL 








10465 




00005 


62399 
















104 66 


14 


09 5 05 


06136 


27160 




CM 


LV 


, 1 36 


, 8 


, SUBF 


1 04 78 


46 


10514 


1 200 


27170 




BE 


* + 36 








10490 


14 


09505 


06135 


27180 




CM 


LV 




, 8 


,Sl)8P 


10502 


47 


10634 


01200 


27190 




BNE 


FCT11 
















27191 


******* 


******* ************* 




****** 


:**********; 


105 14 


43 


10534 


02290 


27193 




BO 


*+20,UFSTR+27 


♦BRANCH IF 


n i agi\ 


iOSTIC MOOF 


10526 


49 


10546 




27195 




B7 


*+20 








10534 


12 


06843 


00042 


27197 




SM 


ADC0W,12,10 


, , ,UURG BACK 


OVER 


DI AGMOST IC 










27199 














1 0546 


11 


06843 


00066 


27200 




AM 


AOCOW 




, 10 




10558 


26 


095 10 


06843 


27210 




TF 


RTAD 


, AOCOW 






10570 


14 


09505 


06136 


27220 




CM 


LV 


,136 


» 8 


, SUBF 


1 0582 


47 


10614 


01200 


2 72 30 




BNE 


* + 32 








1 05 94 


26 


094 76 


02399 


27240 




TF 


RTNAME 


,SL 






106 06 


49 


108 00 




2 72 50 




B7 


FCT1G 








10614 


15 


05075 


00001 


27260 




TOM 


SUBPSW 


, 1 






10626 


49 


10800 




2 7270 




B7 


FCT1G 








10634 


15 


05045 


00004 


27280 


FCT11 


TDM 


FTSW 


, 1 


. 11 




10646 


17 


04276 


40662 


27290 




BTM 


SRFCT 


,* + 16 











SECOND 


PASS FORTRAN 


I I 








NOVEMBER 


LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 




10662 




00005 


62399 


27300 




DSA 


SL , M400 1 2 




1066 7 




00005 


63836 












1066R 


25 


05025 


04673 


27310 




TD 


RFLAG , FXORF L 




10680 


15 


09325 


00004 


27320 




TDM 


RSW.-l 




10692 


17 


06898 


40708 


27330 




BTM 


PUTX ,*+16 




10708 




00005 


66848 


27340 




DSA 


B, BLANK, BLANK 




10713 




00005 


69344 












10718 




00005 


69344 












10720 


26 


09520 


06843 


2 73 50 




TF 


SXF ,ADCOW 




10732 


12 


09520 


00040 


27360 




SM 


SXF ,10 


, 10 


10744 


16 


02.394 


60004 


27370 




TFM 


ADTEMP ,4 




10756 


26 


02393 


02399 


27380 




TF 


ADTEMP-1 ,SL 




10768 


26 


02394 


06843 


27390 




TF 


ADTEMP , AOCOW 


,6 


10780 


11 


09485 


00061 


27400 




AM 


I , 1 


, 10 


10792 


49 


10822 




27410 




B7 


FCT1G1 




10800 


17 


05510 


40816 


27420 


FCT1G 


BTM 


RMNS ,*+16 




10816 




00005 


69485 


2 7430 




DSA 


I ,SL 




10821 




00005 


62399 












10822 


26 


06888 


06843 


27440 


FCT1G1 


TF 


Tl ,ADCOW 




10834 


16 


09515 


00600 


27450 




TFM 


RV ,0 


,9 


10846 


26 


09505 


06843 


2 7460 




TF 


LV ,ADCOW 




10858 


12 


09505 


00061 


27470 




SM 


LV , 1 


, 10 


10870 


14 


02399 


06132 


27480 




CM 


SL ,132 


,8 ,SC 


10882 


46 


11464 


01200 


27490 




BE 


FCT1C 




108 94 


17 


05510 


40910 


27500 


FCT1A 


BTM 


RMNS ,*+16 




10910 




00005 


69485 


27510 




DSA 


I ,SL 




10915 




00005 


62399 












10916 


17 


05510 


40932 


27520 




BTM 


RMNS ,*+16 




10932 




00005 


69485 


27530 




OSA 


I ,SR 




10937 




00005 


62372 












10938 


44 


11536 


5045 


27540 




BNF 


FCT12 ,FTSW 












27550 




ARITHMETIC STATEMENT FUNCTION 


IN MAIN LINE 


10950 


15 


13632 


00000 


27560 




TDM 


SARGSW ,0 




10962 


26 


02377 


09 505 


27570 




TF 


SX ,LV 




10974 


15 


07342 


00001 


27580 


FCT1H 


TDM 


SSI , 1 




10986 


17 


06898 


41002 


27590 




BTM 


PUTX ,*+16 




11002 




00005 


69 335 


27600 




DSA 


AM, LV, FIVE 




11007 




00005 


69 505 












11012 




00005 


69471 












11014 


15 


07345 


00001 


27610 




TDM 


SS4 , 1 




11026 


43 


11046 


02293 


27620 




BD 


*+20 ' ,FCTSW 




11038 


49 


11286 




27630 




B7 


FCT13 




11046 


16 


07343 


00041 


27640 




TFM 


SS2 ,11 


» 10 


11058 


26 


13637 


06843 


27650 




TF 


SUBCOW ,ADCOW 




11070 


11 


13637 


0003-5 


27660 




AM 


SUBCOW ,35 


» 10 


11082 


17 


06898 


41098 


27670 




BTM 


PUTX ,*+16 




11098 




00005 


69333 


27680 




DSA 


TF, SUBCOW, LV 




11103 




00005 


43637 












11108 




00005 


69 505 












111 10 


26 


13642 


06843 


27690 




TF 


BCOW ,ADCOW 




11122 


11 


13642 


00036 


27700 




AM 


BCOW ,36 


t 10 


11134 


16 


07343 


00041 


27710 




TFM 


SS2 ,11 


, 10 


11146 


17 


06898 


41162 


27720 




BTM 


PUTX ,*+16 




11162 




00005 


69 563 


27730 




DSA 


BNF, BCOW, SUBCOW 




11167 




00005 


43642 












11172 




00005 


43637 












11174 


15 


07342 


00001 


27740 




TDM 


SSI , 1 





143 



im'liWUlMlilii il mi, 







o 



***** 




SECOND 


PASS FORTRAN 


I I 










LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 


11186 


17 


06898 


1-1202 


27750 




BTM 


PUTX 


,* + 16 


11202 




00005 


09331 


27760 




DSA 


CF .SUBCOW 


.BLANK 


11207 




00005 


1-3637 












11212 




00005 


09344 












11214 


16 


07345 


0*101 


27770 




TFM 


SS4 


,1101 


11226 


17 


06898 


i-1242 


27780 




BTM 


PUTX 


,*+16 


11242 




00005 


99 333 


27790 




DSA 


TF, SUBCOW 


, SUBCOW 


11247 




00005 


1:3637 












11252 




00005 


1-3637 












11254 


44 


11274 


13632 


27800 




BNF 


* + 20 


, SARGSW 


11266 


49 


11738 




27810 




B7 


FCT1J 




11274 


26 


02377 


13637 


27820 




TF 


SX 


.SUBCOW 


11286 


15 


07343 


00001 


27830 


FCT13 


TDM 


SS2 


, 1 


11298 


17 


06898 


1-1314 


27840 




BTM 


PUTX 


,*+16 


11314 




00005 


09370 


27850 




DSA 


BT.TOFAC, 


SX 


11319 




00005 


04227 












11324 




00005 


02377 












11326 


15 


07343 


00001 


27860 




TDM 


SS2 


, 1 


11338 


17 


04276 


41354 


27870 




BTM 


SRFCT 


,*+16 


11354 




00005 


02399 


27880 




DSA 


SL ,N40012 




11359 




00005 


03836 












11360 


17 


06898 


■11376 


27890 




BTM 


PUTX 


,* + 16 


11376 




00005 


06846 


27900 




DSA 


BTM , FRFAC 


,N40012 


11381 




00005 


04222 












11386 




00005 


03836 












11388 


14 


02372 


00104 


27910 


FCT1F 


CM 


SR 


,104 


11400 


46 


11432 


01200 


27920 




BE 


FCT1B 




11412 


11 


09515 


00005 


27930 




AM 


RV 


,5 


11424 


49 


10894 




27940 




B7 • 


FCT1 A 




11432 


43 


11464 


09515 


27950 


FCT1B 


BD 


FCT1C 


,RV 


11444 


16 


02372 


00002 


27960 


FCT1K 


TFM 


SR 


,2 


11456 


49 


114 76 




27970 




B7 


FCT1D 




11464 


16 


02372 


00001 


27980 


FCT1C 


TFM 


SR 


, 1 


11476 


15 


07342 


00001 


27990 


FCT1D 


TDM 


SSI 


, 1 


11488 


17 


06898 


1-1504 


28000 




BTM 


PUTX 


,*+16 


11504 




00005 


09335 


28010 




DSA 


AM,LV,SR 




11509 




00005 


09505 












11514 




00005 


02372 












11516 


43 


03206 


05045 


28020 




BD 


EXIT 


,FTSW 


11528 


49 


02628 




28030 




B7 


CLEAR 




11536 


17 


04 2 76 


1-1552 


28040 


FCT12 


BTM 


SRFCT 


,*+16 


11552 




00005 


02 399 


28050 




DSA 


SL,N40011 




11557 




00005 


03831 












11558 


14 


02372 


00104 


28060 




CM 


SR 


, 104 


11570 


47 


11602 


01200 


28070 




BNE 


* + 32 




11582 


15 


13632 


0000-1 


28080 




TDM 


SARGSW 


, 1 


11594 


49 


10974 




28090 




B7 


FCT1H 




11602 


16 


07343 


00041 


28100 




TFM 


SS2 


, 11 


11614 


26 


03836 


06843 


28110 




TF 


N40012 


,ADCOW 


11626 


11 


03836 


00090 


28120 




AM 


N40012 


,90 


11638 


12 


03831 


00004 


28130 




SM 


N40011 


,4 


11650 


17 


06898 


41666 


28140 




BTM 


PUTX 


, * + 16 


11666 




00005 


€9327 


28150 




DSA 


TFM.N40012.N40011 


11671 




00005 


03836 












11676 




00005 


03831 












11678 


15 


07342 


00001 


28160 




TDM 


SSI 


, 1 


11690 


17 


06898 


1-1706 


28170 




BTM 


PUTX 


,*+16 



NOVEMBER, 1966 



.RIGHT PAREN 



.RIGHT PAREN 



, 10 
. 10 











SECOND 


PASS FORTRAN 


I I 












LOCTN 


OP 


P/L 





PG/LN 


LABEL 


MNEM 


OPERANDS 


AND REMARKS 




11706 




00005 


09 33 5 


281 80 




DSA 


AM . N400 1 2 


. FOUR 




11711 




00005 


03836 














11716 




00005 


1-3648 














11718 


15 


13632 


ooooe 


28190 




TDM 


SARGSW 


,0 


,11 


11730 


49 


10974 




28200 




B7 


FCT1H 




11738 


16 


07343 


00041 


28210 


FCT1J 


TFM 


SS2 


,11 


. 10 


11750 


17 


06898 


41766 


28220 




BTM 


PUTX 


,*+16 




11766 




00005 


09333 


28230 




DSA 


TF.N40011 


.SUBCOW 




11771 




00005 


03831 














11776 




00005 


43637 














11778 


15 


07342 


00001 


28240 




TDM 


SSI 


, 1 




11790 


43 


11444 


13632 


28250 




BD 


FCT1K 


.SARGSW 




11802 


15 


07342 


00001 


28260 




TDM 


SSI 


, 1 




11814 


26 


03831 


06843 


28270 




TF 


N40011 


, ADCOW 




11826 


12 


03831 


00006 


28280 




SM 


N40011 


,6 


, 10 


11838 


17 


06H98 


41854 


28290 




BTM 


PUT X 


,*+16 




11854 




00005 


09335 


28300 




DSA 


AM,N40011 


,0NE2 




11859 




00005 


03831 














11864 




00005 


43646 














11866 


16 


07345 


04101 


28310 




TFM 


SS4 


,1101 


, 8 


11878 


26 


03836 


09505 


28320 




TF 


N40012 


,LV 




11890 


11 


03836 


00013 


28330 




AM 


N40012 


, 13 


, 10 


11902 


17 


06898 


1-1918 


28340 




BTM 


PUTX 


,* + 16 




11918 




00005 


1-3644 


28350 




DSA 


BMR,N40012,N40011 




11923 




00005 


03836 














11928 




00005 


038 31 














11930 


11 


09515 


00005 


28360 


FCT1L 


AM 


RV 


,5 


, 10 


11942 


11 


09485 


00001 


28370 




AM 


I 


, 1 


, 10 


11954 


17 


05510 


1-1970 


28380 




BTM 


RMNS 


,* + 16 




11970 




00005 


09485 


28390 




DSA 


I ,SR 






11975 




00005 


02372 














11976 


14 


02372 


00104 


28400 




CM 


SR 


, 104 


,8 


11988 


47 


11930 


01200 


28410 




BNE 


FCT1L 






12 000 


49 


11432 




28420 




B7 


FCT1B 














28430 


****** 


END OF JOB 


ROUTINE 




12008 


12 


06843 


00005 


28440 


EOJP 


SM 


ADCOW 


,5 


, 10 


12020 


14 


08312 


00000 


28450 




CM 


BAL 


,0 


, 10 


12032 


47 


12068 


01100 


28460 




BNH 


* + 36 






12 044 


11 


08322 


00001 


28470 


EOJJ 


AM 


NEXT 


, 1 


, 10 


12056 


25 


08322- 


08290 


28480 




TO 


NEXT 


. FLGRM 


,6 


12068 


14 


08631 


08 551 


28490 




CM 


PREBUF 


,BUF4 




12080 


46 


12148 


01200 


28500 




BE 


EOJG 






12092 


11 


08631 


000?5 


28510 




AM 


PREBUF 


• 75 


, 10 


12104 


26 


08322 


08631 


28520 




TF 


NEXT 


, PREBUF 




121 16 


11 


08322 


00004 


28530 




AM 


NEXT 


,4 


. 10 


12128 


16 


08322- 


00000 


28540 




TFM 


NEXT 


,0 


.67 


12140 


49 


12044 




28550 




B7 


EOJJ 






12148 


26 


13622 


02800 


28560 


EOJG 


TF 


CLLBLK 


.GTBLKB 




12160 


16 


09578 


00067 


28570 




TFM 


LNG 


,67 


. 10 


12172 


25 


08626 


07885 


28580 




TD 


BUF4+75 


,PUTPCH+11 




12184 


16 


00565 


42207 


28590 




TFM 


IORT 


,* + 23 




12196 


49 


00532 


08268 


28600 




B 


IOPT 


.PUTXX 


,7 


12208 


11 


08281 


00003 


28610 




AM 


PUT X Z 


,3 


. 10 


12220 


16 


08631 


08326 


28620 




TFM 


PREBUF 


,BUF1 




12232 


14 


09578 


0006 7 


28630 




CM 


LNG 


,67 


, 10 


12244 


47 


12400 


01200 


28640 




BNE 


EOJW+24 






12256 


16 


00565 


1-2279 


28650 




TFM 


IORT 


,* + 23 





NOVEMBER, 1966 



.RIGHT PAREN 



/46 



LOCTN 
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26 


06601 


09485 


31070 




TF 


GI 


, I 


15138 


26 


06835 


06883 


31080 




TF 


TCOW 


,D4 


15150 


15 


06892 


0000-1 


31090 




TDM 


GTSBSW 


, 1 


15162 


16 


05829 


45422 


31100 




T FM 


GMRP-1 


, CDABXT 


1 51 74 


49 


05912 




31110 




B7 


GYES-24 




15182 


26 


038 1 


04232 


31120 


FPCL 


TF 


N40005 


, F ACAD 


1 5 1 94 


16 


04493 


00016 


31 1 30 




TFM 


OPX 


, 16 


1 5206 


49 


14 762 




3 1 1 40 




B7 


CDSAB3 




15214 


1 5 


09 325 


00001 


31150 


CDABU 


T DM 


RSW 


, 1 




25 


05025 


5035 


31160 




T D 


RFLAG 


,RXFLAG 


i W 








ai i ^° 




BTM 


PUTX 


, * + 1 6 






00005 




31180 




dsa 


TFM,FACAD,04 








00005 


64232 












1 « A/ 




00005 




























RPNS 


,*+16 


1 52 8? 




00005 




31 200 




DSA 


I » F AC 








00005 














1 cjoo 






■15300 


31210 




BTM 


GNRP 


,*+12 


15300 


49 


1 54 22 




31 220 




B7 


CDABXT 




153 08 


1 7 


5 5 70 


15324 


312 30 


CDABP 


BTM 


RPNS 


, # + 1 6 


1 5324 




00005 


6948 5 


31 240 




DSA 


I , FAC 




15329 




00005 


69469 












15330 


15 


09314 


00001 


31250 




TDM 


FSW 


, 1 


15342 


25 


05095 


05035 


31260 




TD 


FLAGSW 


,RXFLAG 


15354 


44 


15422 


09597 


31270 




BNF 


CDABXT 


,FPSW 


15366 


43 


15386 


09320 


31280 




BD 


* + 20 


,CALLSW 


15378 


49 


15422 




31290 




B7 


CDABXT 




15386 


17 


05830 


1-5398 


31300 




BTM 


GNRP 


,* + 12 


15398 


12 


09575 


oooei 


31310 




SM 


GBASE 


, 1 



/50 



SECOND PASS FORTRAN II 



NUVFMBFR, 1966 



LOCTN 


OP 


P/L 





PG/ LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 


15410 


3 2 


09576 


00000 


31320 




SF 


GBASE 


» , 6 


15422 


15 


09599 


00000 


31330 


CDABXT 


TDM 


SKIPSW 


,0 


15434 


49 


03206 




31340 




B7 


EXIT 




15442 


25 


09576 


05035 


31350 


GTF IN 


TD 


GBASE 


, RXF LAG ,6 


15454 


1 1 


09 5 75 


00063 


31360 




AM 


GBASE 


,3 ,10 


15466 


15 


09576 


00001 


31370 




TDM 


GBASE 


,1 ,6 


15478 


12 


09575 


00064 


31380 




SM 


GBASE 


,4 ,10 


15490 


26 


09576 


06835 


31390 




TF 


GBASE 


,TCnw ,6 


15502 


49 


06404 




31400 




B7 


GTJW 




16 002 








31410 




DORG 


16002 




16 002 


34 


09244 


00701 


31420 


XUUX 


34 


BLK6A,701 




16014 


38 


09244 


00702 


31430 




38 


BLK6A,702 




16026 


36 


00012 


00500 


31440 




TRA 






16038 


49 


00012 














16002 








31450 




TCD 


XUUX 




14100 








31460 




DORG 


14100 












31470 




TERTIARY LINKAGE BLOCK 7 


14101 




00002 




31480 




DC 


2,7 




14102 


16 


02359 


69212 


31490 


YUBCDS 


TFM 


FMOM+35 


, BLK5 


141 14 


17 


02324 


14102 


31500 




BTM 


FMON 


, SUBCDS 


14126 


16 


02359 


69236 


31510 


YUBCAB 


TFM 


FMOM+35 


, BLK6 


14138 


17 


02324 


14126 


31520 




BTM 


FMON 


,SUBCAB 


14150 


26 


03796 


09485 


31530 


YUBC12 


TF 


N40004 


, I 


14162 


49 


14198 


00000 


31540 




B 


CD12P 




14174 


16 


02359 


09284 


31550 


YUB12B 


TFM 


FMOM+35 


, BLK8 


14186 


17 


02324 


14174 


31560 




BTM 


FMON 


, SUB12B 










31570 






OUTPUT INITIALIZING INSTRUCTION 










31580 




INDICIES ON DO 


LIST 


14198 


11 


03796 


00061 


31590 


CD12P 


AM 


N40004 


,1 ,10 


14210 


43 


14244 


09315 


31600 




BD 


CD12C 


,101 


14222 


17 


05540 


14238 


31610 




BTM 


GTNS 


,*+16 


14238 




00005 


63796 


31620 




DSA 


N40004 




14243 




00005 


69 534 


31630 




DSA 


T2 




14244 


11 


0404 2 


00051 


31640 


CD12C 


AM 


DOREF 


,21 ,10 


14256 


24 


04 042 


09575 


31650 




C 


DOREF 


, GBASE 


14268 


47 


14352 


01100 


31660 




BNH 


CD12E 




14280 


17 


08998 


14313 


31670 




BTM 


ERRT , DFLMS 




14292 


46 


14304 


01400 


31680 




BV 


*+12 




14304 


49 


00796 




31690 




B7 


MONCAL 




14313 




00020 


X2 


31700 


DFLMS 


DAC 


20, DO 


TABLE FULLS 


14352 


26 


09525 


04042 


31710 


CD12E 


TF 


DOMAX 


, DOREF 


14364 


11 


09525 


00051 


31720 




AM 


DOMAX 


,21 ,10 


14376 


26 


04042 


09534 


31730 




TF 


DOREF 


,T2 ,6 


14388 


11 


03796 


00061 


31740 




AM 


N40004 


,1 ,10 


14400 


17 


05540 


44416 


31750 




BTM 


GTNS 


,* + 16 


14416 




00005 


63796 


31760 




DSA 


N40004 




14421 




00005 


62399 


31770 




DSA 


SL 




14422 


26 


09530 


04042 


31780 




TF 


J40004 


, DOREF 


14434 


11 


09530 


00069 


31790 




AM 


J40004 


,9 , 10 


14446 


26 


09536 


02399 


31800 




TF 


J40004 


,SL ,6 


14458 


11 


03796 


00062 


31810 




AM 


N40004 


,2 ,10 


14470 


17 


05540 


1-4486 


31820 




BTM 


GTNS 


,* + 16 


14486 




00005 


63796 


31830 




DSA 


N40004 




14491 




00005 


62372 


31840 




DSA 


SR 




144 92 


15 


07342 


00001 


31850 




TDM 


SSI 


, 1 


14504 


15 


07343 


00001 


31860 




TDM 


SS2 


, 1 


14516 


15 


09599 


00001 


31870 




TDM 


SKIPSW 


,1 



***** SECOND PASS FORTRAN II NUVFMBER, 1966 PAGE 61 



LOCTN 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14528 


17 


04276 


44544 


31880 




BTM 


SRFCT 


# + 16 






00005 


©2399 


31 890 




OS A 


SL 








00005 


©378 1 


31900 




OS A 


N40001 




14550 


17 


042 76 


■14566 


31910 




BTM 


SRFCT 


*+16 


14566 




00005 


©2372 


31920 




DSA 


SR 




14571 




00005 


©379 1 


31930 




DSA 


N40003 






1 7 




44588 


3 1 940 




BTM 


PUTX 


,*+16 






00005 


©9333 


31950 




DSA 


TF 








00005 


©3781 


31960 




DSA 


N40001 










©3791 






T^M 


N40003 




1 itnn 


15 


09599 


00000 


31980 




TDM 


SK I PSW 





14612 


1 2 


09530 


00064 


31990 




SM 


J40004 


4 , 10 


14624 


26 


09538 


06843 


32000 




TF 


J40004 


ADCOW ,6 


14636 


11 


09530 


00068 


32010 




AM 


J40004 


8 , 10 


14648 


11 


03796 


00062 


32020 




AM 


N40004 


2 , 10 


14660 


17 


05540 


1-46 76 


32030 




BTM 


GTNS 


# + 16 


14676 




00005 


©3796 


32040 




DSA 


N40004 




14681 




00005 


©3781 


32050 




DSA 


N4000 1 




14682 


26 


09536 


03781 


32060 




TF 


J40004 


N40001 ,6 


14694 


1 1 


03796 


00061 


32070 




AM 


N40004 


1 , 10 


14706 


1 7 


05540 


1-4722 


32080 




BTM 


GTNS 


*+16 


14722 




00005 


63796 


32090 




DSA 


N40004 




14 72 7 




00005 


62399 


32100 




DSA 


SL 




14728 


14 


02399 


06132 


32110 




CM 


SL, 132,8 


SEMI COLON 




46 


14 776 


01200 


321 20 




BE 


N60084 






14 


02399 


0© 104 


321 30 




CM 


SL, 104,8 


RIGHT PAREN 


1 71/ 

1 / 77? 


47 


148 20 


01200 


32140 




BNE 


N60085 




14 776 


1 1 


09530 


00064 


32150 


N60084 


AM 


J40004 


4 , 10 


14788 


26 


09536 


09343 


32160 




TF . 


J40004 


ZER04 ,6 


14800 


43 


1 2446 


0931 5 


32170 




BD 


CD14E 


,101 




49 


02628 


00000 


321 80 


C Dl 2A 


B 


CLEAR 




l i«?n 








3219 




D0RG 


*-3 






: 




00064 


32200 


N6 008 5 


AM 


J40004 


,4 , 10 


■ i iof f 






0006 1 


32210 




AM 


N40004 


, 1 ,10 


14844 




05540 


44860 


32220 




BTM 


GTNS 


#+16 


14860 




00005 


63796 


32230 




DSA 


N40004 




14865 




00005 


©3791 


32240 




DSA 


N40003 




14866 


26 


09536 


0379 1 


32250 




TF 


J40004 


N40003 , 6 


14878 


49 


14800 


00000 


32260 




B 


CD 1 2 A— 12 




14886 








32270 




D0RG 


*-3 




16002 








32280 




D0RG 


16002 




16002 


34 


09268 


00701 


32290 


XTTX 


34 


BLK7A,701 




16014 


38 


09268 


00702 


32300 




38 


BLK7A.702 




16026 


36 


00012 


00500 


32310 




TRA 






16038 


49 


00012 














1 6 002 








32320 




TCD 


XTTX 




141 00 








32330 




DORG 


14100 












32 340 


***""** 


TERTIARY LINKAGE 


BLOCK 8 


14101 




00002 




AO 




DC 


2,8 




141 02 


16 




69212 




L U o u U o 


TFM 


FMON+35 


BLK5 


141 14 


1 7 


02324 


14102 


32370 




BTM 


FMON 


SUBCDS 


14126 


16 


02359 


69 2 36 


32380 


ZUBCAB 


TFM 


FMON+35 


BLK6 


14138 


17 


02324 


14126 


32390 




BTM 


FMON 


SUBCAB 


14150 


16 


02359 


69260 


32400 


ZUBC12 


TFM 


FMON+35 


BLK7 


14162 


17 


02324 


14150 


32410 




BTM 


FMON 


SUBC12 


14174 


43 


14222 


09315 


32420 


ZUB12B 


BD 


CD12BP+24 


101 


14186 


49 


14198 


00000 


32430 




B 


CD12BP 









SECOND 


PASS FORTRAN 


I I 










NUVFMBFR, 1966 


LOCTN 


OP 


P/L 


U 


PG/LN 


LABEL 


MNEM 


OPERANDS AND 


REMARKS 












32440 


****** 




THF FOLLOWING 


OUTPUTS THE 


TEST AT THE END OF A 00 


14198 


26 


09534 


09594 


32450 


CD12BP 


TF 


T2 


, T3 




142 10 


15 


09321 


00000 


32460 




TDM 


DOSW 


,0 




14222 


26 


14892 


04042 


32470 




TF 


DOTEMP 


, DOREF 
, 1 




14234 


15 


05105 


00001 


32480 




TDM 


CKSW 




14246 


15 


09599 


00001 


32490 




TDM 


SKIPSW 


, 1 




14258 


24 


09534 


04042- 


32500 


CD1-2Y 


C 


T2 


, DOREF 


, 11 


14270 


47 


14408 


01200 


32510 




BNE 


CD12X 






14282 


26 


03791 


04042 


32520 


CD12D 


TF 


N40003 


, DOREF 




14294 


11 


03791 


00017 


32530 




AM 


M40003 


, 17 


, 10 


14306 


26 


02399 


03791 


32540 




TF 


SL 


, M40003 


, 11 


14318 


14 


02399 


06000 


32550 




CM 


SL 




,8 


14330 


15 


09599 


00001 


32560 




TDM 


SKIPSW 


, 1 




14342 


46 


14488 


01200 


32570 




BE 


N60092 






14354 


16 


09596 


00021 


32580 




TFM 


OPZ 


,21 


, 10 


14366 


17 


04 2 76 


1-4382 . 


32590 




BTM 


SRFCT 


,* + 16 




14382 




00005 


62399 


32600 




DSA 


SL 






14387 




00005 


63781 


32610 




DSA 


N40001 






14388 


15 


07343 


00001 


32620 




TDM 


SS2 


, 1 




14400 


49 


14512 


00000 


32630 




B 


N60095 






14408 








32640 




DORG 


#-3 






14408 


15 


05105 


00000 


32650 


CD12X 


TDM 


CKSW 


, 




14420 


15 


09601 


00001 


32660 




TDM 


ERSWT, 1 






14432 


17 


08998 


44895 


32670 




BTM 


ERRT ,DOMFS 






14444 


12 


0404 2 


00021 


32680 




SM 


DOREF 


,21 


, 10 


14456 


14 


04042 


64102 


32690 




CM 


DOREF 


,DOBASE 




14468 


47 


14856 


01300 


32700 




BL 


EXITA 






14480 


49 


14258 


00000 


32710 




B 


CD12Y 






14488 








32720 




DORG 


*_ 3 






14488 


16 


09596 


00011 


32730 


M60092 


TFM 


□ PZ 


, 11 


, 10 


14500 


16 


03781 


00061 


32740 




TFM 


N40001 


, 1 


, 10 


14512 


12 


03791 


00068 


32750 


N60095 


SM 


N40003 


,8 


, 10 


14524 


26 


14552 


03791 


32760 




TF 


N60099 


,N40003 




14536 


17 


04276 


44552 


32770 




BTM 


SRFCT 


,#+16 




14552 




00005 


44552 


32780 




DSA 


N60099 






14552 




00000 




32790 


M60099 


DS 








14557 




00005 


63796 


32800 




DSA 


N40004 






14558 


15 


07342 


00001 


32810 




TDM 


SSI 


, 1 




14570 


17 


06898 


44586 


32820 




BTM 


PUTX 


,#+16 




14586 




00005 


©9596 


32830 




DSA 


0PZ,N40004,N40001 




14591 




00005 


63796 














14596 




0000 5 


63781 














14598 


11 


03791 


00064 


32840 




AM 


N40003 


,4 


, 10 


14610 


26 


14638 


03791 


32850 




TF 


N60101 


,N40003 




14622 


17 


04276 


14638 


32860 




BTM 


SRFCT 


,# + 16 




14638 




00005 


14638 


32870 




DSA 


N60101 






14638 




00000 




32880 


M60101 


DS 








14643 




00005 


63781 


32890 




DSA 


N40001 






14644 


16 


07343 


00041 


32900 




TFM 


SS2 


,11 


, 10 


14656 


17 


06898 


44672 


32910 




BTM 


PUTX 


,#+16 




14672 




00005 


©9 543 


32920 




DSA 


C,N40004,N40001 




14677 




00005 


©3796 














14682 




00005 


©3781 














14684 


12 


03791 


00068 


32930 




SM 


N40003 


,8 


, 10 


14696 


26 


03796 


03794 


32940 




TF 


N40004 


,N40003 


, 11 


14708 


15 


07342 


00001 


32950 




TDM 


SSI 


, 1 




14720 


17 


06898 


14736 


32960 




BTM 


PUTX 


,#+16 





153 



***** 




SECOND 


PASS FORTRAN 


I I 






NOV/FMBFR, 1966 PAG 


c 


OP 


P/L 


Q 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 


14736 








32970 






BNH,N40004,N01100 






00005 


»3796 










14 746 




00005 


&9539 










14748 


1 2 


04042 


00021 


32980 




SM 


DOREF ,21 ,10 


14760 


24 


0404 2 


04102 


32990 




C 


DOREF ,DOBASE 


14772 


46 


14832 


01200 


33000 




BE 


N60107 


14784 


26 


0379 1 


04042 


33010 




TF 


N40003 , DOREF 


14796 


1 1 


03791 


00021 


33020 




AM 


N40003 ,21 ,10 


14808 


24 


04042 


0379-1 


33030 




C 


DOREF ,N40003 ,611 


14820 


46 


14282 


1 200 


33040 




BE 


C01 2D 




43 


14856 


05105 


330 50 


N60107 


BD 


# + 24 ,CKSW 








1 4892 


33060 




TF 


DOREF ,DOTEMP 


1 4H5 A 


IK 

15 


09599 


00000 


33070 


EX ITA 


TDM 


SK I PSW , 


1 lOlQ 




1 2690 


09315 


33080 




BD 


CD14M ,101 


l i«»n 


AO 

49 


0262-8 


00000 


33090 






CL EAR , ,5 


1 A oo 








33100 




DORG 


* — 3 


l i»o; 




;J 




331 10 


DOT EMP 


DS 


5 


' IBM 




00032 


X2 


33120 


DOMES 


DAC 


32, IMPROPER DO NESTINGS) 










33130 




DORG 


16002 




34 


09292 


0070 1 


33140 


XSSX 


34 


BLK 8A ,701 


11 A 
, ,? 


? 8 


09292 


00702 


331 50 




38 


BLK8A ,702 


1 AH^S 


fa 


000 1 2 


00 500 


331 60 




TRA 






49 


00012 












16002 
















141 00 








33180 




DORG 


/i 
14100 










33190 


www 


PR I NT 


FIRST PAGE HEAD -THEM PRINT BLOCKS 


141 04 




00005 




33200 




DC 


5,12345 


14106 


47 


14105 


03400 


33210 


0FL01 


BNI 


OFLOl-1,3400,6, TEST PRINTER CHAN 12 BRBACK INDIRECT 


141 18 


43 


14150 


02220 


33220 




BD 


0NE,PGNUM-2,, YES- CHAN 12 


141 30 


43 


14162 


02221 


33230 




BD 


TW0,PGNUM-1 


14142 


49 


14174 




33240 




B7 


NONUM 


14150 


1 5 


14974 


0000 7 


33250 


ONE 


TDM 


BlOMAD+174,7 


14162 


1 5 


14976 


00007 


33260 


TWO 


TDM 


Bl OMAD+ 176 , 7 


1 /'i Ot 


2 5 


14979 


02222 


33270 


MONUM 


TD 


B10MAD+179,PGNUM,,,PAGE NUMBFR 




25 


14977 


02221 


33280 




TD 


B10MAD+177, PGMUM- 1 


1 1 OQ 

l i! in 


^a 


14975 


02220 


33290 




TD 


B10MAD+175,PGNIIM— 2 




^7 


00000 


n°o^ * 


33300 




34 


,0971,, SKIP TO 1 IMMEDIATE 


1 ijo; 




00000 


°-A9^7 


33310 




34 


,0962,, DOUBLF SPACF AETEH PRINT 


1 A?3 A 


1 A 




^4?7 7 


33320 




T FM 


1 R T , * + 2 3 , , TO IORT — PRINT PAGE HEAD 


14246 


49 


00532 




^?4n 






TnDT DArc_/. 7 


14258 


1 1 


2222 








AM 


PGNUM,01,10,, ADD 1 TO PAGE NUMBER 




49 






tt^AO 




H7 

n^A 


0FL01— 1,,6, BRANCH BACK INDIRECT 


14281 




00005 










B10MAD+1 










33370 




DC 


3,183,,, PRINT INDICATION AND PAGE NUMBER 


1 i3M 




00002 




33380 


DSKHD 


DSC 


2,22,, PAGE OF LO OFF INF R 


1 4?Q1 








33390 




USA 


DISKDD 


1 i9Q? 








33400 




DC 


1,3 


1 4 7Q4 










DISKDD 


DDA 


, 1 ,B8DAD,002, B10MAD, , , DDA OF PRINT OUT OFLO 






nnnn l 




33420 




DC 


1,3 










33430 


** PRINT CORE MAP OF LABELS IN BLOCKS 










33 440 


PBL0K1 


TFM 


I0RT,*+23,, BRING IN THE HEADING 


14322 


49 


005 66 


1-428 5 


33450 




B 


I0GT,DSKHD,7 


14334 


15 


15100 


00000 


33460 




TDM 


FAF6, 00000,, RM FOR DUMMY PRINT 


14345 




00001 




33470 




DC 


1,5),*,,, 


14346 


32 


02314 


00000 


33480 


PBLOK 


SF 


FCTEND-4 


14358 


26 


14689 


02318 


33490 




TF 


TBLEND,FCTEND, , , INITIALIZE THE POINTER 


14370 


31 


15300 


13547 


33 500 




TR 


OUTARA, SVTYNB+58 






SECOND 


PASS FORTRAN 


I I 






NOVEMBER, 1966 PAG 








u 


PG/LN 


LABEL 


MNEM 


OPERANDS AND REMARKS 








00 06 5 


33 510 


EOPRT 


AM 


TBL END , 5 , 10 


1439 


44 


1 AAAA 

14666 


14689 


33 52 




BNF 


E0PRT1 ,TBLEND, 1 1 


14406 


43 


14478 


1 4b9 1 


33530 




BD 


MINUS1, COUNTS 




1 6 


14691 


000&8 


33540 




TFM 


C0UNT8,08, 10, , RESET THE COUNT 


1 A A - 11 

, 77 , 




005 65 


1-44 53 


33 550 




TFM 


IORT,*+23,, PRINT THE LINE OF SYMBOLS 


r 77cl 


/a 


????? 


1-4692 


33 560 




B 


I0PT,FAF5-4,7 


14454 


17 


14106 


t4466 


33570 




BTM 


0FLO1 ,*+12 , , , TEST CHAN 12 


14466 


16 


14568 


1-5100 


33580 




TFM 


MOVR+6 , F AF6 , , INITIALIZ FOR LOADING PRINT ARFA 


14478 


1 2 


14691 


OOOftl 


33590 


M INUS1 


SM 


COUNTS, 01, 10, , RFDUCF THF COUNT 


14490 


15 


14689 


00008 


33600 




TDM 


TBLEND ,8 , , THF STATEMENT NUMBFR IS HERE 


14502 


26 


15303 


14689 


33610 




TF 


OUTARA+3 .TBLEND , 11 


145 14 


33 


15 300 


00000 


33620 




CF 


OUTARA 


14526 


15 


14689 


00004 


33630 




TDM 


TRLFND ,4 , , , THE CORE ADDRESS IS HERF 




26 


• 15 309 


1 46 8-0 


33640 




TF 


OUTARA+9, TBLEND, 11 




a? 


it;? 05 


00000 


33650 




CF 


OUTARA+5 


1 iC£, 






1 5300 


33660 


MOVR 


TR 


FAF6, OUTARA, 2, MOVE TO PRINT BUFFER AREA 


i ak 7A 


7 r 
1 1 


1 AKA 

14568 


000 12 


33 670 




AM 


MOVR+6, 12, 10, MODIFY THE MOVER 


it a 

, 2cQO 


If 






33680 




SM 


TBLEND, 10, 10, ADJUST THF POINTER 






1 AAHO 


02303 


33690 


COMPAR 


C 


TBLEND , TB AS E 


1 It 1 1 


AA 




01300 


33700 




BNL 


EOPRT, , , END OF ARFA OM 


1 


1 A 


f Mil 








TFM 


I0RT,*+23,, YES-PRINT LAST LINE 


14634 


49 


00532 








B 


IOPT,FAF5-4,7 




1 7 


141 06 


t'6 58 


3373n 




BTM 


0FL01,*+12,,, TEST CHAN 12 














B7 


EOJEND-12 


14666 




1 4689 






F0PRT1 


SM 


TBLFND,15,10, ADJUST THE POINTER 




49 


14598 








B7 


COMPAR 


1 4689 




00005 




-70 


TBLEND 


DC 


5,00000,,, POINTER FOR PRINTER PUUTIMF (TABLE) 


Q 

r 




00002 




33780 


COUNT 8 


DC 


2,08 






00000 




33 790 


FAF6 


DS 


,B10MAD+300 






00005 




33800 


FAF5 


DS A 


FAF6 


l 




00003 




33R10 




DC 


3,143,,, PRINT TABLE DEFINFR 






000 1 3 




33820 


OUTARA 


DSC 


13, a, FAF6+200, , INTERMEDIATE OUTPUT BUFFER 


16002 








33830 




DORG 


16002 


16002 




0000 1 




33840 


niPi 


DC 


1,1 


16007 




00005 




33850 




DC 


5,17351 


16010 




00003 




33860 




DC 


3,007 


16016 




00006 




33870 




DC 


6, 141005) 


16018 


34 


16002 


00701 


33880 


DIP 


34 


DIP1 ,701 










33890 




38 


DIP1,702 


16 042 


36 


00012 


00500 


33900 




TRA 




16054 


49 


00012 












16018 








33910 




TCD 


DIP 


024 00 








33920 




DEND 


PASSU 



c 



/54 



/55 



♦PUNCH RESEQUENCEO SOURCE DECK 
♦LIST PRINTER 
♦OUTPUT CARD 
♦PRINT SYMBOL TABLE 
(ID) ** FORTRAN DIAGNOSTIC MODE LIBRARY SUB 
*L IBR 

♦ASSEMBLE RELOCATABLE 
♦ID NUMBER 0037 
♦STORE RELOADABLE 



/56 



FORTRAN DIAGNOSTIC MODE LIBRARY SUB 



TkACEC 00968R 
ERBACK 00248R 
BUFF 00857R 
ERA1 01224R 
ERROR 00960R 
IMC 00371R 
SIGN3 0082'tR 
TOFIX 01386R 



TUFACC 00976R 
ENTRY2 00006R 
CLEAR 00696R 
ERMES 01265R 
ERXV 00068R 
OVFL 01292R 
TCD 00992R 
TRA 01172R 



TNFRET 01496R 
ENTRST 00940R 
CONST 00124R 
ERPRT 01255R 
ERXVC 00984R 
RMARK 01099R 
TFM 007A4R 
TRACE 00304R 



TNFADR 01423R 

CONRET OO220R 

DBUFF 01191R 

ERR 00088R 

FIXED 00764R 

SIGN 00536R 

TNF 0]>OOR 

TRNM 00452R 



STNOSV 01223R 
BB 01184R 
ENTRY 00856R 
ERRET 00296R 
FORCE 01100R 
SIGN2 00640R 
TOFAC 01324R 



/57 



FORTRAN DIAGNOSTIC MODE LIBRARY SUB 



OOOIO 




DSA 


ENTRY2 


00020 


ENTRY2 


BV 


OVFL 


00030 




CM 


ENTRY2-l t O,1011 


00040 




BNE 


* + 24 


00050 




BNF 


FORCE, ENTRY2-1 


UU060 




TF 


STN0SV,ENTRY2-1 


00070 




BB2 




00080 


ERXV 


TFM 


ERRET+6,3810 


00090 




B7 


ERR+12 


00100 


ERR 


TFM 


ERRET+6,3700 


001 10 




TF 


ERMES+2*12,2615 


00120 




TFM 


C0NRET+6,C0NRET+8 


00130 


CONST 


TO 


ERMES+2*3, STNOSV-1 


00140 




TD 


ERMES+2*2,STNOSV-2 


00150 




TO 


ERMES+2*!, STNOSV-3 


00160 




TD 


ERMES+2*0,STNOSV-4 


00170 




TP 


ERMES+2*6,STN0SV 


00180 




TDM 


ERMES+2*5,0 


00190 




BNF 


*+24, STNOSV 


002 00 




TDM 


ERM ES + 2* 5 » 1 


00210 


CONRET 


B7 


*-* 


00220 




TDM 


BB+1,9 


00230 




B7 


FORCE 


00240 


ERBACK 


TDM 


BB+1,2 


00250 




K 


,951 


00260 




PUT 


ERPRT 


002 70 


ERRET 


B7 


*-* 


00280 


TRACE 


TF 


3451 , 3495 


00290 




BNC4 


3452 


00300 




TFM 


C0NRET+6,*+20 


00310 




B7 


CONST 


00320 




TF 


TFM+11 , TRNM+6 


OU330 




AM 


TFM+11,*-* 


00340 


INC 


DS 


, * 


00350 




CM 


TFM+11,BUFF + 2*120- 


00360 




BNH 


TRNM 


00370 




K 


,951 


00380 




PUT 


DBUFF 


00390 




TFM 


TRNM+6, BUFF-1 


00400 




B7 


TRACE+44 


00410 


TRNM 


TRNM 


BUFF-1, ERMES-1, 2 


00420 




BNF 


FIXED, 2492-1 


004 3 




BNF 


ER Al, 2492-1, 7 


00440 




AM 


TRNM+6, 19, 10 


00450 




TDM 


SIGN+8,0 


00460 




BNF 


*+24, 2492-2 


00470 




TDM 


SIGN+8,2 


00480 


S I GN 


TFM 


-TRNM-6,02003 


00490 




AH 


TKNM+6, *-* 


005 00 




TFM 


TMFADR , 2492-2 








TN FR E T+6 , * + 20 


00520 




37 


TNF 


00530 




AM 


TRNM+6, 4, 10 


00540 




TDM 


SIGN2+10, 1 


00550 




BNF 


*+24,2492 


00560 




TDM 


SIGN2+10.2 


005 70 


S IGN2 


TFM 


-TRNM-6,4520,8 



(MODIFIED BY F 



,,,MOVE SIGN AND PERIOD 



,MOVE EXPONENT SIGN 



PAGE 


1 




00004 


00005 -0006 


00006 


M6 


01292 


01400 


00018 


J4 


00005 


000 — 


00030 


M7 


00054 


01200 


00042 


MM 


01100 


00005 


00054 


KO 


01223 


00005 


00066 


42 


00000 


00000 


00068 


J6 


00302 


-3810 


00080 


M9 


00100 


00000 


00088 


J6 


00302 


-3700 


00100 


K6 


01289 


02615 


00112 


JO 


00226 


-0228 


00124 


KN 


01271 


01222 


00136 


KN 


01269 


01221 


00148 


KN 


01267 


01220 


00160 


KN 


01265 


01219 


00172 


KN 


01277 


01223 


00184 


J5 


01275 


00000 


00196 


MM 


00220 


01223 


00 20 8 


J5 


01275 


00001 


00220 


49 


00000 


00000 


00228 


J5 


01185 


00009 


00240 


M9 


01100 


00000 


00248 


J5 


01185 


00002 


00260 


34 


00000 


00951 


00272 


10 


00565 


-0295 


00284 


4R 


00532 


-1255 


00296 


49 


00000 


00000 


00304 


26 


03451 


03495 


00316 


47 


03452 


00400 


00 32 8 


JO 


00226 


-0348 


00340 


M9 


00124 


00000 


00348 


KO 


00755 


004 5 8 


00360 


Jl 


00755 


-0000 


00371 


00000 




00372 


JM 


00755 


-1096 


00384 


M7 


00452 


01 100 


00396 


34 


00000 


00951 


00408 


10 


00565 


-0431 


00420 


4R 


00532 


-1191 


00432 


JO 


0045 8 


-0856 


00444 


M9 


00348 


00000 


00452 


L- 


-0856 


01264 


00464 


M4 


07 64 


02491 


00476 


M4 


01224 


-2491 


004 8 8 


Jl 


00458 


000J9 


00 5 00 


J5 


00544 


00000 


00 512 


K4 


00536 


02490 


00 524 


J5 


544 


00002 


00 536 


J 6 


0450 


-2003 


00 54 8 


Jl 


0458 


-0000 


00560 


J6 


01423 


-24 9 


00572 


JO 


01502 


-0592 


00 584 


M9 


01400 


00000 


00592 


Jl 


00458 


000-4 


00604 


J5 


0650 


00001 


00 616 


,v,4 


0640 


02492 


00628 


J5 


00650 


00002 


00640 


J6 


0450 


i'l520 



FORTRAN DIAGNOSTIC MODE LIBRARY SUB PAGE 2 



00580 




AM 


TRNM+6, 4, 10 




00652 


Jl 


0458 


000-4 


00590 




TFM 


TMFADR ,2492 




00664 


J6 


01423 


-2492 


00600 




TFM 


TNFRET+6,*+20 




00 6 76 


JO 


01502 


-0696 


006 10 




B7 


TNF 




00688 


M 9 


01400 


0000 


00620 


CLEAR 


AM 


TRNM+6, 2, 10 




00696 


Jl 


0458 


000-2 


U0630 




TFM 


-TRNM-6,0,10 




0070R 


J6 


0450 


000-0 


0064 




C 


TRNM+6, TFM+11 




00720 


KM 


n0458 


00755 


00650 




B L 


CLEAR 




00732 


M7 


00696 


01300 


00660 


TFM 


TFM 


TRNM+6, *-* 




00744 


J6 


00458 


-0000 


00670 




B7 


3452 




00756 




03452 


0000 


006 8 


F IXED 


BNF 


ER Al, 2492+1, 7 ,,, 


.MODIFIED BY K 


00 764 


M4 


01224 


-2493 


00690 




AH 


TRNM+6, 17, 10 




00 7 76 


Jl 


00458 


000 J 7 


007 00 




TDM 


SIGN3+10,0 




007 8 8 


J5 


00834 


00 000 


00710 




BN r- 


* + 24, 2492 




00 800 




0824 


02492. 


00720 




TDM 


SIGN3+10.2 




00812 


J5 


00834 


0000.2 


00730 


S IGN3 


TFM 


-TRNM-6,00 20,8 




00 8?4 


J6 


00450 


0-02 


00740 




AM 


TRNM+6, *-* 




00 836 


Jl 


00458 


-0000 


00750 




B7 


CLEAR-32 




00 848 


M 9 


00664 


00000 


0076 0* 






MODIFY THE INCORE SUBS 












00770 


ENTRY 


TR 


3496, TRACEC 




00856 


3J 


03496 


0096 8 


00780 




BNF 


'.= + 48,3580 ,,. 


i BRANCH IF NOT FLOATING HARDWARE SUbS 


00868 




00916 


03 5 80 


00790 




TR 


3798 , ERXVC 




00 880 


3J 


03798 


00984 


008 00 




TFM 


ERR+11,3620 




00892 


J6 


00099 


-362'0 


008 10 




TFM 


*+ 18, 3608 




00904 


J 6 


0092 2 


-3608 


00820 




TR 


3688 , ERROR 




09 16 


3J 


0368K 


00 960 


00830 




TR 


3408, TOFACC 




00928 


3J 


03408 


O09 7 6 


00840 


ENTRST 


TFM 


2226,*-* 




00940 


16 


02226 


-0000 


00850 




B7 


-2226 




00952 


49 


02220 


000 


00860 


ERROR 


B7 


ERR ■ 




00960 


M9 


00088 


00000 


00870 




DC 


1,3 




00967 


00001 




008 8 


TRACEC 


B7 


TRACE 




0096 8 


m 9 


003 04 


00000 


00890 




DC 


1,9 




009 7 5 


0000 1 




00900 


TOFACC 


B7 


TOFAC 




00976 


H9 


01324 


ooooo 


00910 




DC 


1,5) 




00983 


00001 




00920 


ERXVC 


B7 


ERXV 




009 84 


M9 


00068 


ooooo 


00930 




DC 


i,a 




0099 1 


00001 




00940 s 




CACULATE SOME CONSTANTS 












00950 


TCD 


TF 


INC, 2219 




00992 


K6 


00371 


02219 


0096 




AM 


INC, 5, 10 




1004 


Jl 


003 71 


000-5 


00970 




C 


INC, 2221 




01016 


K4 


00371 


02221 


00980 




BNL 


* + 24 




01028 


M6 


01052 


01300 


00990 




TF 


INC, 2221 




01040 


K6 


00371 


02221 


01000 




AM 


INC, 11, 10 




01052 


Jl 


00371 


000 J 1 


01010 




A 


INC, INC 




01064 


KJ 


0371 


003 71 


010205 






FOR F = 8 INC WOULD BE 


48 










1 03 




TF 


SIGN+23, 2219 




01076 


K6 


00559 


02219 


01040 




A 


SIGN+23, SIGM+23 




01088 


KJ 


00559 


00559 


01050 




TF 


SIGN3+23, 2221 




01100 


K6 


00847 


02221 


01060 




A 


SIGN3+23,SIGN3+23 




01112 


KJ 


00847 


00847 


01070 




S 


FIXED+11,2221 




01124 


K2 


00775 


02221 


01080 




S 


TRNM+35, 2219 




01136 


K2 


00^87 


02219 


01090 




TF 


ENTRST+11,2226 




0114H 


K6 


00951 


02226 


01100 




TFM 


2226, ENTRY 




01160 


10 


02226 


-0856 


01 1 10 


TRA 


TRA 






01172 
1 1 84 


10 
49 


00565 
00716 


-1191 

OOOOO 



01191 00002 2K 
01193 00005 -1199 
01198 00001 » 



FORTRAN DIAGNOSTIC MODE LIBRARY SUB 



PAGE 



01120 
01130 
01140 BUFF 
01150 RMARK 
01160 FORCE 
01170 
01180 
01190 
01200 



TCD 

DORG 

DAS 

DSAC 

CM 

BE 

TR 

K 

PUT 



01210 TFM 

01220 BB BB 

01230 DORG 

01240 DBUFF DPRA 

01250 SF 

01260 SF 

01270 STNOSV DS 

01280 ERA1 TFM 

01290 TFM 

01300 B7 

01310 ERPRT DPRA 



01320 ERMES 
01330 OVFL 
01340 
01350 

01360 T OF AC 

01370 

01380 

01390 

01400 

01410 

01420 TOFIX 
01430 
01440 TNF 
01450 

01460 TNF AO R 

01470 

014 8 

01490 

01500 

01510 

01520 

01530 TNFRET 
01540 



DAC 

TFM 

TFM 

B7 

TF 

BNF 

SM 

TF 

BNF 

BB2 

BNF 

BB2 

TF 

TD 

US 

TFM 

SM 

SM 

BNF 

TD 

TF 



TCD 
ENTRY 
72 
50, 

TRNM+6, BUFF-1 
BB 

-TRNM-6,RMARK-1 
,951 
DBUFF 

TRNM+6, BUFF-1 
ERBACK 



2492-1 
TRNM+35, ,67 
, * 

ERMFS + 2*12, 171 ,9 
ERRET+6, BB 
ERR+24 
, ERMES, S 

14,0000+00 ER Aia 
ERMES+2*12, 172,9 
ERRET+6, ENTRY2+12 

ERR+24 

2492,-3407 
TOF IX, 2491 

3407,2, 10 

2490,-3407 
ERA1-24, -TRNM-35 

ERAl-24,-FIXED-ll 

* + 30, TRNM+6 
*+23,*-* 

*-*, 70, 10 
TNF+30, 2, 10 
TNFADR, 1, 10 
TNF + 1 2 , -TNFADR 
TNF+35, -TMFAPR 
-TNF-30,TNF+35 



.CHECK FOR EMPTY BUFFER 
,YES - BRANCH BACK 



01205 
01208 
00992 
00856 
00857 
01099 
01100 
01112 
01124 
01136 
01148 
01160 
01172 
01184 
01191 
01191 
01196 
01200 
01212 
01223 
01224 
01236 
01248 
01255 
01260 
01265 
01292 
01 304 
01316 
01324 
01336 
01348 
01360 
01372 
01384 
01386 
01398 
01400 
01412 
01423 
01424 
01436 
1 44 8 
01460 
01472 
01484 
01496 
00001 



00003 -03 
00006 -00005) 



00144 
00100 
JM 00458 
M6 01184 
LJ 00450 
34 00000 
10 00565 
4R 00532 
JO 00458 
M2 00248 



-0856 
01200 
01098 
00951 
-1171 
-1191 
-0856 
00000 



00005 -0857 

00003 K6G 

32 02491 00000 

L2 0048P -0000 

00000 

J6 01289 00J71 
JO 00302 -1184 
M9 00112 00000 
0000 5 -12 65 
00003 K6G 
00028 

J6 01289 OOJ72 
JO 00302 -0018 
M9 00112 00000 
26 02492 03M;P 
M4 01386 024 91 
12 03407 000-2 
26 02490 0340P 
MM 01200 004.8P 
42 00000 00000 
MM 01200 0077N 
42 00000 00000 
KO 01430 00458 
K5 01435 00000 
00000 

16 00000 OOOPO 
J2 01430 000-2 
J2 01423 000-1 
MM 01412 0142L 
KM 01435 0142L 
KO 0143- 01435 
49 00000 00000 



01504 CORE POSITIONS REQUIRED 

PLUS RELOCATION INCREMENT 
00154 STATEMENTS PROCESSED 



/60 



*PUNCH RE SEQUENCED SOURCE DECK 
*LIST PRINTER 
*OUTPUT CARD 
*PRINT SYMBOL TABLE 
(ID) ** FORTRAN VARIABLE FORMAT LIBRARY SUB 
-ASSEMBLE RELOCATABLE 
*STORE RELOADABLE 
*ID NUMBER 0038 
*L I BR 

-ERROR STOP 



/6J 



FORTRAN VARIABLE FORMAT LIBRARY SUB 



SLASHT 


06676 


NUMRET 


00716R 


F IN ISH 


003 10R 


BEFORE 


13 75R 


BACK 


00724R 


CHAR 


005 09R 


DRNO 


OiOO^R 


ER2 


02224R 




00242R 


GET 


004 08R 


H 


01948R 


K 


02221 


NUM2 


00680R 


PLACE 


00950R 


REP4 


07230 


TABLE 


00872R 


XTYPE 


07354 



SEARCH 00772R 
NUMBER 00125R 
ERTYPE O0052R 
A 01864R 
BACK2 00568R 
CLOS 00905R 
E 01928R 
ETYPE 04580 
FLOAT 00146R 
GET2 00420R 
HSAVE 02014R 
LOPEN 01695R 
NUM3 00660R 
PUT 00968R 
RET 01351R 
TOGET 00640R 



REPEAT 01292R 
GETRET 00560R 
COMCHK 02104R 
AM 00444R 
CAN 00980R 
CLOSE 01616R 

EK 22 «>0R 
F 01440R 
FORER 02329R 
GO 00348R 
HTYPE 04602 
NOPE 00828R 
OPEN 01820R 
RECMK 02403 
SLASH 01884R 
TW 01540R 



PUTARN 015 S6R 
GETARN 00500R 
CL0SE2 01752R 
ARN 00194R 
CAN2 01036R 
CM 00336R 
ERRET Q2320R 
FAC 02492 
FTYPE 04558 
GOGO 00324R 
I 01408R 
NUM 00372R 
OVLAP 02355R 
REOO 07026 
STOP 00145R- 
TWO 01352R 



OPENSV 01726R 
FORMAT 00006R 
CANRET 01248R 
ATYPE 04536 
CAN3 01224R 
COMMA 02188R 

error 0048OR 

FF 02219 
GAD 01400R 
GRAND 01143R 
I TYPE 04448 
NUMSV 02278R 
PAR 03378 
REP 07126 
SUP 00592R 
X 00944R 



/6Z 



FORTRAN VARIABLE FORMAT LIBRARY SUB PAGE 



00010 


FF 


OS 


,2219 


,,, FLOATING POINT LENGTH 


02219 


0000 




0002 


K 


DS 


, 2221 


,,, FIXED POINT LENGTH 


02221 


00000 




0003 


RECMK 


DS 


,2403 


, ,, RECORD MARK 


02403 


00000 




00040 


FAC 


DS 


, 2492 


, , , FL OAT I NO ACCUMULATOR 


2 492 


00000 




00050 


PAR 


OS 


,3378 




337 8 


00000 




0006 


I TYPE 


DS 


, 4448 




04448 


00000 




00070 


ATYPE 


DS 


,4536 




04536 


on 000 




0008 


FTYPE 


DS 


,4558 




0455 8 


00000 




00090 


FTYPE 


DS 


,4580 




04 5 HO 


00000 




001 00 


HTYPE 


DS 


,4602 




04602 


0000(5 




001 10 


SLASHT 


DS 


,6676 




06676 


00000 




00120 


REDO 


DS 


, 7026 




7026 


00000 




00130 


REP 


DS 


,7126 




07126 


00000 




00140 


RE P4 


DS 


, 7230 




072 30 


00000 




00150 


XTYPE 


OS 


,73 54 




07354 


00000 




00160 




DSA 


FORMAT 




00004 


00005 -0006 • 


00170 


FORMAT 


TFM 


GET2+11 , FAC+2 


,,, LOCATE HIGH ORDER CHARATFR 


00006 


J6 


043 1. 


-24°4 


00180 




tf;i 


GET+11, FAC+1 




00018 


J6 


00419 


-2493 


00190 




TU 


ST0P,F0«MAT-1 


,,,SAVF FLAG 


000 30 


KN 


00145 


0000 5 


002 00 




TDM 


ERTYPE, 




00042 


J5 


00052 


00000 


002 10 


ERTYPE 


DS 


r*-l 




00052 


00000 




00220 




TFM 


TABLE+5, ER 




000 54 


JO 


00877 


-2260 


0230 




TFM 


E RR FT + 6 » Go 




00066 


JO 


02 32 6 


-0348 
-0290 


00240 




TFM 


GRAND, 145+145 




00078 


J 6 


01143 


00250 




BNF 


F LO AT , FOR MAT- 1 


,,,TFST IF ARRAY IS FLOATING 


00090 


MM 


00146 


00005 


00260 




s 


GET2+11,K 




00102 


K2 


0431 


02221 


00270 




CF 


EORMAT-1 




00 114 


L3 


00005 


00000 


00280 


NUMBER 


DS 






00125 


00000 




00290 




TF 


AH+11 ,K 




00126 


K6 


04 55 


02221 


00300 




B7 


ARN 




00138 


M9 


00194 


00 000 


00310 


STOP 


DS 


1 




00145 


00001 




00320 


FLOAT 


S 


GET2+11, FF 




00146 


K2 


00^31 


02 21.9 


00330 




SM 


FORMAT-1,2,10 


,,,PROCESSES MANTISSA ONLY 


00 15 8 


J2 


00005 


000-2 


00340 




TF 


AM+11, FF 




00170 


K6 


00455 


02219 


00350 




AM 


AM+11,2, 10 




00 182 


Jl 


00455 


000-2 


00360 


ARN 


TD 


FAC+2, RECMK 


,,,SET UP BNR TEST 


00194 


25 


02494 


02403 


00370 




TF 


LOPEN, 434 


, , , SAVE LAST OPEN PAREN 


00206 


K6 


01695 


00434 


00380 




AM 


LOPEN, 5, 10 




00218 


Jl 


01695 


000-5 


00390 




TF 


PLACE, LOPEN 




00 2 30 


KO 


0950 


01695 


00400 


F IRST 


TFM 


GETRET+6,*+20 


,,,SET UP RETURN ADDRESS 


00242 


JO 


00566 


-0262 


00410 




B7 


GET 




00 254 


M9 


00408 


00000 


00420 




CM 


CHAR, 24, 10 


,,,TEST FOR OPEN PAREN 


00262 


J4 


00509 


000K4 


00430 




BE 


GO ■ 




00274 


M6 


00348 


01200 


00440 




CM 


CHAR, 99, 10 


,,,TEST FOR SKIP PARAMETER 


00286 


J4 


00509 


O00R9 


00450 




BNE 


GET 




00 29 8 


M7 


0408 


01200 


00460 


FINISH 


BV 




,,,TURN OFF OVERFLOW INDICATOR 


00310 


M6 


00310 


01400 


00470 




BB2 




,,, RETURN TO MAINLINE 


00 322 


42 


0000 


00000 


00480 


GO GO 


AM 


PLACE, 5, 10 




00324 


Jl 


00950 


000-5 


00490 


CM 


TFM 


TABLE+5, COMMA 




00336 


JO 


00877 


-2188 


005 00 


GO 


TFM 


NUMRET+6, BACK 


,,,SET UP RETURN ADDRESS 


00348 


JO 


00722 


-0724 


00510 




TFM 


CLOS, CLOSE 




00 360 


JO 


0905 


-1616 


00520 


MUM 


TFM 


NUM3+6, NUMSV-3 


,,, INITIALIZE 


00372 


JO 


00666 


-2275 


00530 




TFM 


GETRET+6, BACK2 


,,,SET UP RETURN ADDRESS 


003R4 


JO 


00566 


-056 8 


00540 




TDM 


SUP+1,6 




00396 


J5 


00593 


00006 


00550 


GET 


BNR 


GETARN,*-* 


, , , BRANCH IF NEXT ELEMENT NOT NEEDED 


0040 8 


M5 


00500 


00000 


00560 


GET2 


TFM 


GET+11,*-* 


, , , INITIALIZE 


00420 


J6 


00419 


-00(io 


00570 




TF 


FAC,F0RMAT-1,11 


,,,MOVE IN NEXT ARRAY ELEMENT 


00432 


20 


02492 


OOOON 


00580 


AM 


AM 


FORMAT- 1 , *-* 


,,,MOVE TO ADDRESS OF NEXT ARRAY ELEMENT 


00444 


Jl 


00005 


-0000 


00590 




SM 


PAR ,1,10 


,,,TEST IF BEYOND ARRAY 


00456 


12 


03378 


000-1 
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PAGE 



2 



00600 




BNN 


GETARN t 




0046 8 


M6 


00500 


01300 


006 10 


ERROR 


TFM 


ERRET+6t CLOSE 


, GO TO TYPE FRROR 




JO 


02326 
















M9 


02260 


00000 




GET ARN 


TFM 


LnAK f (J) 1U , 


• 


00500 


J6 


00509 


000-0 




CHAR 


DS 


» * — 2 » 




00509 


00000 




00650 




A 


CHAR,GET+lli 11 , 


» 


00512 


KJ 


0509 


0041R 


00660 




AM 


GET+ll,2tlO , 


.MOVE TO NEXT CHARACTER 


00524 


Jl 


00419 


000-2 


00670 




CM 


CHAR, 0,10 , 


.CHECK FOR BLANK 


00536 


J4 


00509 


000-0 


00680 




BE 


GET , 


, 


00548 


M6 


00408 


01200 


00690 


GETRET 


B7 


*-# , 




00560 


49 


00000 


00000 


00700 


BACK2 


CM 


CHAR, 70, 10 , 


.CHECK IF IT IS NUMERIC 


00568 


J4 


00509 


OOOPO 


00710 




BL 


NUM2 , 




00580 


M7 


00680 


01300 


0072 


SUP 


BE 


GET , 


.CHECK FOR PRECEDING ZEROS 


00592 


M6 


00408 


01200 


00730 




TDM 


SUP+ 1,1 , 


» 


00604 


J5 


00593 


00001 






AM 


NUM3+6, 1,10 , 




00616 


Jl 


00666 


000-1 


00750 




BNR 


NUM3, NUM3 + 6, 1 1 , 


.CHECK FOR TO MANY DIGITS 


00628 


MN 


00660 


00660 




TOGET 


TFM 


ERRET+6,GET , 




00640 


JO 


02326 


-0408 


nn-77n 






ER , 




00652 


M9 


02260 


00000 


nn7«n 


NUM 3 


-rn 


#— *,CHAR , 




00 660 


2N 


00000 


00509 


00790 




R7 






00672 


M9 


00408 


00000 


00800 


U 


TFM 


M 1 1 M R F Ci Q 




00 6 80 


J6 


00125 


00—0 






TFM 


GAD+6,C0MCHK , 


, FANCY - NO 


00692 


JO 


01406 


-2 1 04 


oor? n 






IN U rl D t K , t\l U rl J5 + o , 1 1 , 


CCT 1 1 D Mil MR CD 
, , o t 1 Ur IMUPlDtK 


00704 


KJ 


00125 


00660 


00830 


Ml 1 M Q F T 
IM U H K C 1 




cc^Dru ii ' 




0071 6 


49 


00000 


OOOOo 


00840 


BACK 


TFM 


S b AR CH + 1 1 ♦ TA B L E , 


.BRANCH TO LOCATION CORRESPONDING 


00724 


JO 


00783 


— 8 7 2 






TFM 

TFM 


GAD+6,CM , 




00736 


JO 


01406 


- 3 3 6 


00860 






BE FOR E , NU MB ER , 




00748 


KO 


01375 


00125 








RE T , PLAC E , 


, TO CHAR 


00760 


KO 


01351 


00950 


00880 


SEA RC H 


c 


CHAR,*--- , 




00 772 


K4 


00509 


OOOOO 


00890 




BNE 


NOPE , 




00784 


M7 


00828 


01 200 


00900 




AM 


SE ARCH + 11 ,5,10 , 




00796 


Jl 


00783 


000-5 


009 10 




SF 


SEARCH+11 , 




00808 


L2 


00783 


ooooo 


00920 




B7 


SEARCH+11,,6 , 


> ' 


00820 


M9 


0078L 


00000 


00930 


NOPE 


AM 


SEARCH + 11, 7, 10 , 




00828 


Jl 


00783 


000-7 


00940 




BNR 


SEARCH, SEARCH + 11, 11, 


,,TEST FOR END OF TABLE 


00 840 


MN 


00772 


0078L 


00950 




TFM 


E RRET+6, GO , 


i . 


00852 


JO 


02326 


-0348 


00960 




B7 


ER , 


' » 


00864 


M9 


02260 


OOOOO 


00970 


TABLE 


DC 


2,23 , 


.CHAR VS CORE TABLE 


00872 


00002 




0098 




DSA 


=,= -=.< 




00 877 


00005 -0000 


00990 




DC 


2,67 




00879 


00002 




m m° 




?r * 


? 




00 884 


0000 5 -0944 






n^a 






00 886 


00002 




ni n?n 






I 




00 89 1 


00005 -1408 


01 03n 




nr 






00 89 3 


00002 




01 04 n 




OSA 


F 




00 89 8 


00005 -1440 






nr 






00900 


00002 




ni nAn 




nc a 






00905 


00005 -1616 


ni n7 i 




rr 
• ^ 


ipf2 




00907 


00002 




oi nnn 










009 1 2 


00005 -1820 


m 090 




nr 
n^i 


o IV 




00914 


00002 










A 




00919 


00005 -1864 


Oil 10 




DC 


2 48 




00921 


00002 




01120 




DSA 


H 






00005 -1948 


01130 




DC 


2,21 




00928 


00002 




01140 




DSA 


SLASH 




00933 


00005 -1884 


01150 




DC 


2,45 




00935 


00002 




01160 




DSA 


E 




00940 


00005 -1928 


01170 




DC 


2, a , 


.TRAILER RECORD MARK 


00942 


00002 




01180 


X 


TFM 


*-*,XTYPE , 




00944 


16 


00000 


-73 54 
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PAGE 


3 




01190 


PLACE 


DS 


, *-5 , 




00950 


OOOOO 




01200 




TFM 


BEFORE, 0,10 , 




00956 


J6 


01375 


000-0 


01210 


PUT 


TFM 


c an ret+6, repeat- 12 , 




00968 


JO 


01254 


-1280 


01220 


CAN 


A 


NUMBER, NUMBER , 


, , DOUBLE NUMBER 


00980 


KJ 


00125 


00125 


01230 




BP 


CAN2 , 


,, CHECK FOR ZERO 


00992 


M6 


01036 


01100 


01240 


DRNO 


TFM 


NUMBER, 2, 9 , 




01004 


J6 


00125 


00-02 


01250 




TFM 


ERRET+6,*+20 , 




01016 


JO 


02326 


-1036 


01260 




B7 


ER , 




01028 


M9 


02260 


OOOOO 


01270 


CAN2 


AM 


PLACE, 3, 10 , 




01036 


Jl 


00950 


000-3 


01280 




TF 


-PLACE, NUMBER , 




01048 


KO 


0095- 


00125 


01290 




CM 


ORNO+11,2,10 , 




01060 


J4 


01015 


000-2 


01300 




BE 


* + 36 , 




01072 


M6 


01108 


01200 


01310 




A 


NUMBER, NUMBER , 




01084 


KJ 


00125 


00125 


01320 




TFM 


DRNO+11,2,9 , 




01096 


J6 


01015 


00-02 


01330 




M 


NUMBER, BEFORE , 




01108 


KL 


00125 


01375 


01340 




BMP 


* + 36 , 




01120 


M7 


01156 


01100 


01350 




SF 


97 , 




01132 


32 


00097 


OOOOO 


01360 


GRAND 


DS 






01143 


OOOOO 




01370 




TF 


NUMBER, 99 , 




01144 


K6 


00125 


00099 


01380 




BNR 


*+20,0PENSV , 




01156 


MN 


01176 


01726 


01390 




B7 


CAN3 , 




01168 


M9 


01224 


OOOOO 


01400 




M 


NUMBER, OPENSV , 




01176 


KL 


00125 


01726 


01410 




BMP 


* + 36 , 




01188 


M7 


01224 


01100 


01420 




SF 


97 , 




01200 


32 


0097 


ooodo 


01430 




TF 


NUMBER, 99 , 




01212 


K6 


00125 


00099 


01440 


CAM3 


S 


GRAND, NUMBER , 




01224 


KK 


01143 


00125 


01450 




TFM 


NUMBER, 0,9 , 




01236 


J6 


00125 


00-00 


01460 


CANRtT 


BNN 




, , CHECK FOR MORE THAN 145 


COLS. 012^8 


46 


OOOOO 


01300 


01470 




TF 


ERR ET + 6 , C ANR ET+6 , 




01260 


KO 


02326 


01254 


01480 




B7 


ER , 




01272 


M9 


02260 


OOOOO 


01490 




AM 


PLACE, 5, 10 , 




01280 


Jl 


00950 


000-5 


015 00 


REPEAT 


TFM 


-PLACE, RFP , 




01292 


J 6 


0095- 


-7126 


01510 




CM 


BEFORE, 1,10 , 




01304 


J 4 


01375 


000-1 


01520 




BNH 


GAD+6,,6 , 




01316 


M7 


01400 


01100 


01530 




AM 


PLACE, 5, 10 , 




01328 


Jl 


00950 


000-5 


01540 




TFM 


-PLACE,*-* , 


,, PLACE IN RETURN ADDRESS 


FOR REPEAT 01340 


J6 


0095- 


-0000 


01550 


RET 


DS 






01351 


OOOOO 




01560 


TWO 


AM 


PLACE, 2, 10 , 




01352 


Jl 


00950 


000-2 


01570 




SF 


BEFORE-1 , 




01364 


1.2 


01374 


ooooo 


01580 


BEFORE 


DS 






01375 


ooooo 




01590 




TF 


-PLACE, BEFORE . 




01376 


KO 


0095- 


01375 


01600 




AM 


PLACE, 5, 10 , 




01388 


Jl 


0950 


000-5 


01610 


GAD 


B7 






01400 


49 


OOOOO 


ooooo 


01620 


I 


TFM 


-PLACE, ITYPF , 




01408 


J6 


0095- 


-4448 


01630 




TFM 


NUMRET+6,PUT , 




01420 


JO 


00722 


-0968 


01640 




B7 


NUM , 




01432 


M9 


00372 


OOOOO 


01650 


F 


TFM 


-PLACE, FTYPE , 




01440 


J6 


0095- 


-455H 


01660 




TFM 


DRNO+1 1,1,9 , 




01452 


J6 


01015 


00-01 


01670 




TFM 


NUMR ET + 6 , CAN+ 1 2 , 




01464 


JO 


00722 


-0992 


01680 




TFM 


CANRET+6,*+20 , 




01476 


JO 


01254 


-1496 


01690 




B7 


NUM , 


, , GET THAT NUMBER 


01488 


M9 


0372 


OOOOO 


01700 




CM 


CHAR, 03, 10 , 


,, CHECK FOR PERIOD 


01496 


J4 


00509 


000-3 


01710 




BF 


PUTARN , 




01508 


M6 


01596 


01200 


01720 




TFM 


ERRET+6,*+20 , 




01520 


J 


02326 


-1540 


01730 




B7 


ER , 




01532 


M9 


02260 


OOOOO 


01740 


TW 


AM 


PLACE, 2, 10 , 




01540 


Jl 


0950 


000-2 


01750 




SF 


NUMBFR-1 . 




01552 


L2 


00124 


OOOOO 


01760 




TF 


-PLACE, NUMBER , 




01564 


KO 


0095- 


00125 


01770 




TFM 


NUMBER. 0,9 , 




01576 


J6 


00125 


00-00 
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01 780 




B7 




9 ' ' 


015 88 


M9 


01280 


00000 


01790 


PUT ARN 


TFM 


NUMRET+6,TW 


,,,SET UP RETURN ADDRESS 


01596 


JO 


00722 


-1540 


01800 




B7 


NUM 


> , i 


01608 


M9 


00372 


00000 


01810 


CLOSE 


TFM 


ERRET+6, *+20 


» i i 


01616 


JO 


02326 


-1636 


01820 




B7 


ER2 


' ' ' 


01628 


M9 


02224 


00000 


01830 




BNR 


CL0SE2, OPENSV 


, , , BRANCH IF NOT FINAL PAREN 


01636 


MM 


01752 


01726 


01840 




T FM 


- p LACE» R FDo 


, , , 


0164a 


J6 


95- 


-7o26 


01850 




AM 


PLACE, 5, 10 




01660 


Jl 


00950 


000-5 


01860 




SM 


LOPEN, 5, 10 


» » > 


01672 


J2 


01695 


000-5 


01870 




TFM 


-PLACE,*-* 


, , , FINISH UP FORMAT 


01684 


J6 


0095- 


-0000 


01880 


LOPEN 


US 


, * 


Ml 


01695 


00000 




01890 




C 


PLACE, 2231 


, , , CHECK FOR OVERLAP 


01696 


K4 


00950 


02231 


01900 




BL 


F IN I SH 


i » ) 


01708 


M7 


00310 


01300 


01910 




RCTY 




» » » 


01720 


34 


0000 


00102 


01920 


OPENSV 


OC 


3,3,*-5 


in 


01726 


00003 




01930 




WATY 


OVLAP 


, , i 


01732 


1.9 


02355 


00100 


01940 




CALL 


EXIT 


,, .FATAL ERROR 


01744 


49 


00796 


00000 


01950 


CL0SE2 


TF 


BEFORE, OPENSV 


) » » 


01752 


KO 


01375 


01726 


01960 




TD 


OPENS V , R ECMK 


,,,SET UP LINKAGE TO REPEAT 


01764 


K5 


01726 


02403 


01970 




TF 


RET, LOPEN 


> i i 


01776 


KO 


01351 


01695 


01980 




TFM 


-PLACE, REP4 


t , t 


01788 


J6 


0095- 


-7230 


01990 




TFM 


GAD+6, CM 


, , , 


01800 


JO 


01406 


-0336 


02000 




B7 


REPEAT+12 


, , , 


01812 


M9 


01304 


00000 


02010 


OPEN 


BNR 


ERROR, OPENSV 


,,,YOU NEVER KNOW 


01820 


MN 


00480 


01726 


02 02 




TF 


LOPEN, PLACE 


, , , 


01832 


KO 


01695 


00950 


02030 




TF 


OPENSV, NUMBER 


,,,SAVE NUMBER OF REPEATS 


1 844 


KO 


01726 


00125 


02 04 




B7 


GO 


» , , 


01856 


M9 


00348 


00000 


02050 


A 


TFM 


-PLACE, ATYPE 


i i » 


01864 


J6 


0095- 


-4536 


02060 




B7 


1 + 12 


,,,S0 MUCH FOR A FORMAT 


01876 


M9 


01420 


00000 


02070 


SLASH 


TFM 


-PLACE, SLASHT 


i t > 


01884 


J6 


0095- 


-6676 


02 08 




TFM 


GRAND, 145+145 


i , » 


01896 


J 6 


01143 


-0290 


02 090 




TFM 


ERRET+6, GOGO 


) i » 


01908 


JO 


02326 


-0324 


02100 




B7 


ER2 


, , » 


01920 


M9 


02224 


00000 


021 10 


E 


TFM 


-PLACE , ETYPE 


» » i 


01928 


J6 


0095- 


-4580 


02120 




B7 


F + 12 


» t » 


01940 


M9 


01452 


oonoo 


02130 


H 


TFM 


-PLACE, HTYPE 


, , , 


01948 


J6 


0095- 


-4602 


02140 




TF 


HSAVE, NUMBER 


! » I 


01960 


KO 


02014 


00125 


02150 




TFM 


BEFORE, 0, 10 


) » I 


01972 


J6 


01375 


000-0 


02160 




TFM 


CANRET+6, *+20 


» > T 


01984 


JO 


01254 


-2004 


02170 




B7 


CAN 


I , I 


01996 


M9 


00980 


00000 


02180 




TDM 


GETRET-11,1 


,,,STOP BLANK SUPPRESSION 


02004 


J5 


00549 


00001 


02190 


HSAVE 


DS 


,*-l 


> » » 


02014 


00000 




02200 




TFM 


GETRET+6, *+20 


,,,SET UP RETUN ADDRESS 


02016 


JO 


00566 


-2036 


02210 




B7 


GET 


> , , 


02028 


M9 


00408 


00000 


02220 




AM 


PLACE, 2, 10 


i 1 1 


02036 


Jl 


00950 


000-2 


02230 




TF 


-PLACE, CHAR 


i , t 


02048 


KO 


0095- 


005O9 


02240 




SM 


H SAVE , 1,10 


i > t 


02060 


J2 


02014 


000-1 


02250 




BH 


GET 


, , , 


02072 


M6 


00408 


01 1.00 


02260 




TDM 


GETRET-11,6 


, , , RETURN BLANK SUPPRESSION 
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